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Fabrication des Exeltels 



Ce n'est plus un secret pour personne: les 
constructeurs d'ordinateurs et non des moindres 
sous-traitent la fabrication de leurs micro- 
ordinateurs en Asie du sud-est ( généralement la 
Corée ), là où la main d'oeuvre est relativement 
bon marché. Si il y a encore quelques années, les 
fabrications coéréennes ou taiwannaises laissaient 
à désirer au niveau fabrication, les productions 
actuelles garantissent une très bonne qualité. Une 
qualité qui fait jaunir les japonais eux-mêmes. En 
effet, depuis maintenant une dizaine d'années, 
ces pays ont investi énormément dans des usines 
robotisées ou simplement des usines hyper 
fonctionnelles où rien n'est laissé au hasard. Le 
gage de qualité de production qui était l'exclusivité 
américaine, japonaise ou européenne s'est 
décentré au point même où l'on parle de qualité 
made in Taiwan ou made in Corea. Il était donc 
naturel que de grands constructeurs ( Thomson 
pour la France ) choisissent la Corée pour produire 
certains appareils de leur gamme informatique. 

Des orix oui garantissent des marges 

Les prix sont un souci constant pour les 
constructeurs dans cette époque de concurrence 
débridée. Un bref retour en arrière { quatre ans ) 
nous plongera dans la stupéfaction: Un ordinateur 
familial Tl 99 4A ou Commodore 64 s'achetait 3 
500 F minimum, un PC pas loin de 20 000 F. 
Aujourd'hui, on brade du MSX à 200 F et un PC XT 
s'enlève à 3 000 F. Jolie dégringolade. Comment 
peuvent faire les constructeurs pour gagner de 
l'argent dans cette affaire ? .S'ils en gagnaient au 
début de l'ère héroïque, ils ont commencé par en 
perdre progressivement jusqu'à en perdre 
beaucoup .Et , l'année dernière, Thomson 
annonçait la fermeture de son usine française 
responsable de la production de micro familiaux. 
Motif : manque de compétitivité. Même pas 
l'argument "qualité made in France" pouvait 
justifier le maintien de l'usine dans le groupe. 

Quelques chiffres 

Exelvision fabriquait les EXL 100 dans les usines 
de la CGCT à Saint Orner. Chaque machine 
revenait à un prix forfaitaire de X francs. En 
choisissant de faire construire les micro- 
ordinateurs en Corée, cette somme s'est vue 
divisée par 2. C'est simple, efficace et ça laisse 
plus de marge en fin de compte. Si une machine 
revenait à 100 F en production française, elle ne 
coûte plus que 50 F en production Coréenne. 
Comment résister à une telle offre? 



Le cocorico "made in france" s'étrangle dans cette 
deuxième moitié des années 80. Plus de 
fabrication française. Est-ce à déplorer ? Chacun 
voit midi à sa porte. Si certains pensent qu'il est 
dommage de ne plus construire en France, de ne 
plus faire travailler des français, ces derniers 
n'observent qu'une partie du tableau. En 
fabriquant à l'étranger, les entreprises françaises 
maintiennent leur niveau de compétitivité et 
continuent à maintenir un équilibre économique 
dans toute la chaîne de distribution: Sous- 
traitants, SAV, distribution, publicité, services. Il 
faut admettre l'évidence: En continuant de 
fabriquer en France, ces entreprises risquent de 
péricliter, voire même de s'éteindre diminuant ainsi 
les ressources d'autres entreprises liées à ce type 
de marché. 

Un autre point important que beaucoup ignorent: 
En sous-traitant la fabrication matérielle, les 
produits conçus en France bénéficient de toutes 
les innovations techniques développées peu à 
peu pour d'autres types de matériels. Les produits 
deviennent plus fiables, plus faciles à fabriquer. 



Exeltel mad e in Corea 

Les Exeltels sont fabriqués en Corée par la firme 
Daewoo, un ténor de l'électronique coréenne. 
L'étoile montante de ces années 80. Troisième 
société d'électronique derrière la firme Gold Star et 
Samsung, la société Daewoo Electronics fabrique 
des ordinateurs, des récepteurs de télévision, des 
magnétoscopes, des chaînes HI-FI, etc.. Daewoo 
fabrique des PC, produit les M06 de Thomson. 
Daewoo dispose d'un grand savoir-faire en matière 
informatique. Exelvision a choisi Daewoo 
justement à cause de ce savoir faire, mais 
également pour la possibilité qu'offrait cette 
dernière au niveau de la production de petites 
séries ( 500 pièces environ ). 



L'interview: Christian Pet iot Directeur du Hard- 
ware Exelvisiçn 

PC: Christian, les lecteurs aimeraient connaître les 
raisons pour lesquelles Exelvision fabrique ses 
ordinateurs en Corée. Et pourquoi Daewoo en 
particulier putât qu'une autre société ? 
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CP: Lorsqu'en 1986 Exelvision s'est détachée 
de CGCT, nous ne pouvions plus bénéficier des 
structures de cette dernière. Il était donc impératif 
pour nous de trouver un groupe industriel 
disposant d'un savoir-faire en matière de 
construction informatique. Notre choix s'est porté 
sur Daewoo car nous avions déjà travaillé avec 
cette société notamment pour la fourniture de 
moniteurs monochromes et couleurs. 
De plus, il faut dire que les prix de construction 
que nous facturait CGCT étaient au moins deux 
fois supérieurs au prix du marché international. 
Pour une société comme la nôtre, c'était une 
charge trop lourde. Nous étions trop mal placés 
par rapport à la concurrence. Un autre point 
important était le niveau de qualité à peine 
acceptable des cartes fabriquées par CGCT. 




Détails de la Mass Production Une 



PC: Parlons de la qualité. La production coréenne 
est-elle de meilleure qualité et si oui, quelle en est 
la cause ? 

CP: La qualité de production est nettement 
meilleure. Ceci est du plus particulièrement au 
sens méthodique des coréens, notamment des 
ouvrières coréennes placées sur les lignes de 
production. Ces dernières possèdent un sens 
inné de la précision et sont très travailleuses. Et 
puis la Corée, c'est une toute autre mentalité. On 
parle souvent du "Womanpower" dans le miracle 
économique coréen. En fait, rien n'est plus exact. 
La qualité de production est essentiellement liée 
au travail de ces jeunes filles dont la moyenne 




Détails de la Mass Production Une 



d'âge varie entre 18 et 24 ans et qui bénéficient 
d'une politique sociale au sein de l'entreprise. Les 
salaires de ces jeunes femmes dépassent 
rarement 1 400 F par mois. En France, une 
employée de même catégorie ne touche pas 
moins de 5 000 F. Une très grosse différence à 
l'arrivée. 

PC: Les usines coréennes sont-elles plus 
modernes que les usines françaises ? 

CP: Pas vraiment. Non, la différence se situe au 
niveau du personnel employé à la production 
comme je l'ai dit tout à l'heure. 

PC: Quelles sont les étapes de fabrication d'un 
micro-ordinateur ? 

CP: Tout d'abord le constructeur lance une série 
de 5 prototypes que nous testons de manière 
rigoureuse. N'oublions pas que tous les 
composants { à part les processeurs et certains 
cuircuits spécialisés ) sont d'origine coréenne. Il 
faut donc s'assurer de la qualité de ces derniers 
ainsi que de leur bon fonctionnement. Après cette 
série de cinq prototypes, le constructeur s'engage 
dans une pré-série de 300 appareils pour tester la 
ligne de production. Les appareils qui sortent de 
cette ligne sont alors testés et toute anomalie est 
immédiatement corrigée. Une fois cette pré-série 
produite, la production à proprement parler peut 
commencer: 

Chaque carte mère ( PCB ou Print Circuit Board ) 
est positionnée en début de ligne. L'insertion 
automatique des composants est ensuite réalisée. 
Les composants axiaux tels que les résistances et 
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Fabrication des Exeltels 



les diodes sont insérés. Viennent ensuite les 
composants radiaux: capacités, circuits TTL, 
circuits de 8, 14 ou 16 pattes. La carte ainsi 
équipée passe ensuite sur la PCB line où une 
équipe féminine place à la main les composants 
qui ne peuvent pas être insérés automatiquement 
: transistors, connecteurs, fils, etc. La carte est 
ensuite soudée à la vague puis nettoyée dans un 
bain de vapeur d'eau. Les processeurs , les 
circuits de plus de 16 pattes , les radiateurs sont 
alors fixés sur la carte. 

Après l'insertion automatique ou manuelle des 
composants, la carte subit une phase de test: 
Contrôle des infra-rouges, de la mail box, etc.. 




Détails de la Mass Production Line 

Les cartes sont alors acheminées vers la Mass 
Production Line où les différentes parties du micro- 
ordinateur sont assemblées: Montage des 
transformateurs, des coques, de la face avant, 
pose des étiquettes, etc.. Les micro-ordinateurs 
sont ensuite emballés et stockés. 

PC: Quelle est la cadence de production des 

Exeltels ? 

CP: 1 Exeltel toute les 1,30 minutes. 



PC: Quels sont les ennuis liés à la production 
d'ordinateurs à l'étranger ? 

CP: Essentiellement les voyages et la vie dans les 
régions asiatiques. En effet, les fréquents 
déplacements sont un gros souci. Sans compter 
qu'il faut rester sur place en moyenne trois à 
quatre semaines pour chaque déplacement. Et 
puis la mentalité est vraiment différente dans ces 
pays. Ce que je retiendrai de la Corée, c'est le 
grand professionnalisme qui anime les dirigeants 
de ces entreprises et surtout l'art d'écouter ce que 
l'on a à leur dire. Quand je travaille avec des 
entreprises françaises, ces dernières n'écoutent 
qu'à moitié les conseils ou le desiderata du client. 
En Corée, c'est totalement différent. Ils écoutent 
d'abord et agissent ensuite. C'est généralement 
l'inverse qui se passe en France. 

PC: Exelvision va-t-elle continuer à faire fabriquer 
ces micro-ordinateurs en Corée ? 

CP: Rien ne s'oppose à ce que Daewoo reste 
notre fabricant. Nous sommes contents de la 
qualité et de la production. 

PC: Y-a-t'il de nouveaux projets à Exelvision ? 

CP: Oui et heureusement. Nous travaillons à 
l'heure actuelle sur l'intégration du clavier et du 
moniteur avec l'ordinateur. Tout comme le 
concept minitel ou Macintosh. Nous voulons 
produire un Exeltel compact où la connectique 
sera réduite de trois quarts. Et puis, effectivement, 
nous travaillons sur le futur terminal RNIS. 

PC: L'avenir d'Exelvision pour les prochaines 
années ? 

CP: Nous commençons vraiment à nous 
démarquer de nos concurrents et ce n'est un 
secret pour personne que nous nous orientons 
vers la production de terminaux télématiques sur 
mesure. Un marché important à l'horizon de 1992. 



PC: Quels sont les délais liés au transport vers la 
France ? 

CP: Les Exeltels sont expédiés par bateau et le 
transit prend généralement 25 jours sans compter 

les formalités douanières. 
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Le R.N.I.S 



Le mot est jeté. RNIS. Ce petit sigle mystérieux 
pour la plupart d'entre nous va bouleverser le 
monde des communications dans la prochaine 
décennie. RNIS ou réseau Numérique à 
Intégration de Services est un fabuleux pari 
technolique et humain. Mais qu'est-ce que le 
RNIS? 

L'état actuel 

Aujourd'hui, les télécommunications empruntent 
différents chemins pour transmettre les 
messages: Conversation téléphonique, télex, 
télécopie, etc.. .En effet, chaque type de 
communication passe par une ligne différente. Il 
faut autant de lignes que d'applications 
particulières. Toute la limitation du système 
apparaît ici. L'abonné croule sous toutes les lignes 
installées. Un vrai dédale. De plus, les nouvelles 
formes de communication: audigraphie, 
vidéoconférence ainsi que d'autres formes de 
liaisons spécialisées fleurissent un peu partout. 
Le RNIS consiste à intégrer tous ces services sur 
un même réseau: le réseau téléphonique 
numérisé commuté. 

Un suel réseau pour rte s dizaines d'applications 

LE RNIS veut rassembler sur un même réseau 
toutes les applications qui aujourd'hui nécessitent 
autant de voies de transmission différentes. 
D'abord, un constat évident. Le téléphone reste 
et restera encore pendant longtemps le moyen 
privilégié de communication même pour les 
professionnels. Les raisons à cela: Le réseau est 
relativement jeune ( en France tout du moins ) et 
dessert plus de 25 millions d'abonnés. Le réseau 
téléphonique est en grande partie numérisé. Cela 
signifie simplement que la voix est échantillonnée, 
c'est-à-dire codée numériquement avec des zéros 
et des uns en opposition au réseau analogique 
qui transmet des variations de courant électrique. 
Devant l'existence du réseau téléphonique actuel, 
il serait stupide de se passer de celui-ci pour 
développer un autre réseau. 
Maintenant, l'objectif consiste à ne plus utiliser 
qu'un seul réseau pour acheminer toutes les 
informations. Tout comme le réseau électrique qui 
permet indifféremment à l'abonné d'alimenter son 
lave-vaiselle ou même chauffer son habitation, le 
RNIS permettra à l'abonné de brancher sur une 
même prise tous les périphériques de 
communication: téléphone intelligent, terminal, 
etc.. 



Avec le RNIS, voix, données, images, dessins, 
télécopies pourront voyager ensemble. 
Comment cela est-il possible ? 

L'augment ation des vitesses de transfe r t 

Les vitesses de transmission des données sur un 
réseau analogique commuté culminent à 9 600 
bits par seconde soit 1 ,2 Ko par seconde. Avec le 
réseau RNIS, il est possible d'acheminer des 
données à une vitesse de 64 Kbits par seconde, 
et ce sur deux canaux plus un canal de 
signalisation de 16 Kbits par seconde, soit en tout 
144 Kbits par seconde, 18 Ko par seconde. Ces 
vitesses de transfert ouvrent la porte à des 
applications comme la télécopie rapide, 
l'audiovidéotex, ou la transmission d'images semi- 
animées pour la télésurveillance. 

Les différen tes étapes du RNIS 

Deux étapes fondamentales du RNIS ressortent à 
l'heure actuelle. Dans un premier temps, le RNIS 
ne pourra transmettre que la voix, le données, les 
images fixes en utilisant les canaux de 
transmission de 64 Kbits/s. C'est le RNIS "bande 
étroite". Ce système devrait fonctionner aux 
alentours de 1990 et empruntera le réseau 
téléphonique numérisé commuté actuel sans 
modification des lignes actuelles. Dans un 
deuxième temps, le RNIS pourra transmettre des 
images animées ( télévision, visiophone, 
programme radio ). Ceci constitue le RNIS "large 
bande". La vitesse de tranfsert dans le RNIS à 
large bande avoisinera 10 Mbits/s. Le RNIS large 
bande ne sera possible qu'avec la pose de fibres 
optiques qui irrigueront les zones urbaines. Ce 
type de RNIS fonctionnera dans le meilleur des 
cas vers l'horizon 2000. Pour faire fonctionner ce 
type de RNIS, il faudra poser des milliers de 
kilomètres de fibres optiques. Les fibres optiques 
coûtent cher et ne sont pas particulièrement 
faciles à poser. Néanmoins, le projet de câblage 
existe. La seule contrainte est financière. 

Pratiquement, nue va-t-on pouvoir faire avec, te 
RNIS? 

RNIS bande étroite 

-Parler pendant une transmission de données 
-Rappel automatique d'un numéro occupé 
-Identification d'un appel en instance 
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Exeltexte 80 colonnes 

Traitement de texte 80 colonnes -Ecriture style gras - style normal - 
Insertion de textes - insertion de pages vidéotex- Définition des 
marges- définition des tabulations - Recherche des pages - 
Positionnement en début ou en de texte- Impression qualité courrier 
ou qualité standard. 

Utilisation avec imprimante type Exelwriter. Exeltexte 80 ne peut être 
utilisé qu'avec l'Exeltel. Sauvegarde sur Exelmémoire ou sur Exeldisk. 




Exelfile v1 ou v2 



Traitement de fichiers. 255 fiches de 255 caractères. Traitement des 
champs de saisie. Recopies des champs, supression des champs. 
Fonction de tris par ordre croissant ou décroissant ou en défissant 
une cié de recherche. Tri multi-critères. Affichage tiche à fiche ou 
affichage du fichier en entier. Option publipostage ( V1 pour exeltexte 
40 colonnes V2 pour Exeltexte 80 colonnes }. 

Utilisation avec tout type d'imprimante. Exelfile fonctionne sur EXL 
100 ou sur EXELTEL. Sauvegarde sur Exelmémoire ou sur Exeldisk. 




Cartouche Exeltel 

Cartouce de mise à niveau de l'EXL 100. Cette cartouche permet de 
pouvoir télécharger les logiciels disponible sur le centre serveur 
Exelvision. Cette cartouche permet notamment de télécharger les 
logiciels Exelquad. 
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EXELDIRECT 



1 



Exelmax 



Exelmax es! un langage d'assemblage permettant d'élaborer des 
programmes en langage machine. Les programmes créés peuvent 
être ensuite intégrés dans des programmes développés en langages 
évolués BASIC ou LOGO. Exelmax fonctionne sur EXL 100 ou sur 
EXELTEL. Exelmax nécessite l'emploi d'une Exelmémoire ou d'un 
Exeldisk. Livré avec manuel de programmation 




Mise à niveau EXELTEL-VS 

Cette mise à niveau permet de transformer un Exeltel normal en 
Exeltel-VS. L'Exeltel-VS dispose d'un BASIC 80 colonnes et permet 
de programmer le port modem. L'Exeltel-VS dispose en outre d'un 
mode de traitement des données aux normes ANS! internationales. 
Livré avec manuel de programmation et d'utilisation. La modification 
de l'Exeltel en Exeltel-VS est réalisée dans nos ateliers. 



^^ï 



Interface multifonctions 

L'interface multi-fo net ions se connecte à l'arrière de l'Exeltel. Cette 
interface regroupe quatre fonctions: sortie parallèle type Centronics, 
sortie série type RSC 232, sortie souris et inscrustation vidéo. Cette 
interface est indispensable si vous désirez connecter une imprimante. 
Livrée avec manuel d'utilisation et de programmation 



N* 



Souris pour EXL 100 ou Exelfel 



L'Exelmouse est une souris qui se connecte sur l'interface multi- 
fonctions. L'Exelmouse est particulièrement adaptée pour l'utilisation 
des logiciels Exelpaint ou Exeltexte 80 colonnes. Toutes les 
fonctions de l'Exeltel sont pilotables par la souris. 
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EXELDISK compatible EXL 100/EXEL.TEL 

Unilé de disquettes 3,5 pouces. D'une capacité de stockage de 640 
Ko. l'Exeldisk apporte ia dimension professionnelle à votre EXL 100 
ou votre Exeltel. Livrée avec un manuel d'utilisation et de 
programmation du DOS et une disquette système, l'unité de 
disquettes Exeldisk est indispensable pour toute application 
nécessitant l'emploi de fichiers. L'unité de disquettes Exeldisk facilité 
l'emploi de votre ordinateur. 



% 



Exelmémoire 16 Ko 

Le périphérique indispensable. L'Exelmémoire est une mémoire de 
16 ko auto-alimentée permettant une sauvegarde et un chargement 
immédiats des données. L'Exelmémoire possède un système 
d'exploitation de fichiers. Indispensable pour le téléchargement de 
logiciels ou la programmation en langage d'assemblage. Livrée avec 
manuel d'utilisation et de programmation. 



r 



EXELWRITER 



L'imprimante Exelwriler est particulièrement destinée au traitement de 
texte Exeitexte 80 colonnes. L'Exelwriter est une imprimante 
matricielle permettant l'édition en continu ou en feuille à feuille 
L'Exelwriter se connecte sur l'interface multi-fonctions. Silencieuse, 
facile d'emploi, de faibles dimesnions, l'Exelwrifer travaille en mode 
texte ou en mode graphique: Impression de pages vidéotex 
impression de dessin réalisés avec Exelpaint. Livrée avec un manuel 
de programmation et d'utilisation et un ruban encreur. 



3F 



Et bien sûr, tous les autres logiciels, Guppy, Wizord, Capitaine Menkar, 
etc.. Les moniteurs monochrome ou couleur. Les packs EXELTEL. ' 
Un simple coup de téléphone et on vous livre 
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EXELDÈRECT « 93 65 46 40 



Commandez par : 








TELEX 


TELEPHONE 


EXELTELEX 


LE COURRIER 


461355 F 


Appelez notre service 
commande au 
93165146140 


De 18hà9h 

Composez le 93165146140 

avec votre Minitel 

ou Exeltel, au sifflement 

de la porteuse, appuyez 

sur Connexion / Fin 


Remplissez le bon 

de commande ci-dessous 

et adressez le à 

EXELVISION S.A. 

Place Joseph Bermond 

06560 VALBONNE 



BON DE COMMANDE 



LIVRAISON 24/48 H 

Pour tous les envois de moins de 
15 kg, vous pouvez compter sur le 
service 24/48 heures d'EXELDI- 
RECT, ultra-rapide et fiable. Les 
frais d'expédition forfaitaires d'élè- 
ventàl50F. 



Adresse : 



Désignation des articles 


Quantité 


Prix TTC 


Montant 














































































Total TTC . . . 





*&tâ> 



4Ç+* 



»o 



MODE DE PAIEMENT: 

- Chèque à la commande 

- Contre-remboursement 



Nota ■ tous nos produits sont expédiés Franco de port en cas de contre-remboursement, il sera facturé en ; 
tion postale (poids inférieur à 5kg), 58F HT + l%Ad valorem pour expédition supérieure à 5kg. 



is 23,70 F TTC pour expêd 
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-Renvoi temporaire d'un appel 

-Identification d'un appel 

-Sélection des appels en fonction de leur 

provenance 

-Conversation à plusieurs participants ( initialement 

limitée à trois ) 

-Filtration des appels 

-Utilisation d'une même prise pour tous les 

appareils connectés ( téléfax, télex, terminal 

jusqu'à 8 appareils sur le bus passif) 

-Possibilité de déplacer son téléphone d'une prise 

à l'autre sans être coupé 

-Visualisation d'une image fixe sur un terminal 

approprié 

-Télécopie à grande vitesse et en couleur 

-Téléalarme 

-Télécommande 

RNIS Large bande 

Toutes les applications décrites ci-dessus et: 

-Visiophonie 

-Réception d'images télévisées 

-Réception de programmes radio 

-Téléconférences multipartites 

-Interactivité de l'image 

-Communication de groupe dans toutes ses 

applications 

En fait toute la communication multimédias. 

Comme vous pouvez le lire, ces applications loin 
d'être utopiques formeront notre environnement 
de demain. Les entreprises et les professionnels 
sont susceptibles d'être les premiers bénéficiaires 



de l'implantation du RNIS. Tous les métiers de la 
création, de la gestion, de l'édition de la prise de 
décision seront transformés. 

Un RNIS internatinnal ? 

L'implantation du RNIS à l'échelle mondiale 
pourrait faire appel à la transmission par satellites 
de télécomunnication et unifierait les 
communications de la planète. Tout ceci est 
possible. Les normes du RNIS ont été définies par 
le CCITT ( Comité Consultatif International 
Télégraphique et Téléphonique ). Rien ne 
s'oppose à l'implantation d'un RNIS international. 
Certains pays possèdent déjà les structures pour 
réaliser ce réseau à moyen terme ( an 2000 ). C'est 
le cas notamment de la France. D'autres nations 
ont un objectif qui se situe vers les années 2010 
voire 2030. D'autres pays en voie de 
développement ne possèdent pas les 

infrasrtructures nécessaires à l'implantation d'un 
RNIS. 



Quand fonctionnera le RNIS fancais ? 

Une expérience est en cours. L'opération Renan 
débutera en 1988 avec trois sites des Côtes-du- 
Nord et de l'Ille-et-Vilaine, avant d'être étendue, à 
la fin de la même année, à plusieurs points de la 
région parisienne. Celte expérience aura pour 
objet de tester les nouveaux matériels mis en 
oeuvre ainsi que les nouveaux services proposés. 
A la mi-1989, Renan aura délivré tous ses 
renseignements et les matériels seront passés du 
stade de prototypes au stade de l'industrialisation. 



EXELDIRECT 

LIVRAISON RAPIDE 

UN SEUL NUMERO 

93 65 46 40 
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Initiation BASIC: Gestion de fenêtres 
sous BASIC 

Préambule 

Depuis maintenant trois ans, avec l'apparition du 
Macintosh, une nouvelle forme d'exploitation des 
menus est apparue. Aujourd'hui, on parle de 
menus déroulants, de logiciels "user friendly". La 
notion de fenêtre est tellement bien implantée 
dans les moeurs ( informatiques bien sûr ) que l'on 
se demande même comment on a pu travailler 
différemment toutes ces dernières années. 
Pourquoi un tel succès ? L'utilisation des fenêtres 
facilite l'utilisation des logiciels. Tous les choix 
possibles sont présentés de façon claire. Bien 
entendu, présenter un programme sous forme de 
fenêtres cliquables ou saisissables demande des 
outils spécifiques. Le GEM de microsoft est un de 
ces outils. Evidemment GEM occupe une place 
importante dans la mémoire centrale d'un micro- 
ordinateur. Pour cette raison, GEM n'est réservé 
qu'à un certain type d'ordinateur. Tout cela est 
bien beau me direz-vous, mais je ne possède pas 
GEM sur mon EXL100 ou mon Exettei. Dans ce 
numéro, nous allons développer des outils 
susceptibes de simuler , de générer et de gérer 
des fenêtres. 

Concept général 

Qu'est-ce qu'une fenêtre 

Une fenêtre est une partie de l'écran, donc de la 
mémoire contenant un certain nombre 
d'informations. Une fenêtre contient un ou 
plusieurs champs. Un champ est une zone de la 
fenêtre contenant une information. Un champ 
peut être un champ cliquable c'est-à-dire un 
champ qui, une fois activé à l'aide d'une touche, 
entraîne l'affichage d'une autre fenêtre ou 
l'exécution d'un programme ou une fenêtre 
saisissable c'est-à-dire une fenêtre qui peut 
recevoir une information tapée au clavier. Voir 
ligure 1 et 2. 

L'organisation des fenêtres 

Si on ne tient pas compte des difficultés 
techniques de mise en oeuvre des fenêtres ( 
sauvegarde du fond de l'écran ), le problème de 
l'organisation de ces mêmes fenêtres est assez 
difficile à développer. En effet, chaque champ 
d'une fenêtre correspond à une tâche particulière 



Figure 1 
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Champ 4 
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L'art ivat ion de ce champ 
entraîne raflichags d'une 
autre lenatre ou taiâcutbn 
d'un programe 





Acîivalion d'un champ en 




tl'aflichags d'un» lenalia 
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CM 

Ch 










Figure 2 










Champ? 
Champs 

ChampS 




c,„ 


thamp 


-,™^., 


,(, 30 


ication particulière du programma. 



du programme. Par exemple, une fenêtre 
contenant 5 champs ou cinq rubriques ( on 
emploiera indifféremment les deux termes ) peut 
générer l'exécution de 5 programmes ou de cinq 
fenêtres. Les 5 fenêtres générées par l'activât ion 
d'un champ de la première fenêtre peuvent aussi 
générer d'autres fenêtres ou l'exécution d'autres 
programmes. Ceci est un premier point. Lorsqu'un 
programme est exécuté ou une fenêtre générée, 
il doit être possible de revenir à l'état original, c'est- 
à-dire avant l'activation d'un champ quelconque. 
Voir figure 3. 



La création des fenêtres 

Les problèmes de réalisation 

Nous allons créer un programme de génération de 
fenêtres sous BASIC. Or, en BASIC, il n'est pas 
possible de sauvegarder le fond de l'écran. Bien 
évidemment, on peut créer un fichier contenant 
tous les paramètres de la fenêtre mais l'exécution 
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Activa lion 










Champ 2 
Champ 3 
Champ 4 
Champ 5 






Champ 2 
Champ 3 
Champ 4 
Champ 5 










Fenêtre n" 1 




Fenêtre n° 2 


Lancement d'un programme 



Exécution du programme 



Figure 3 



Champ 2 
Champs 
Champ 4 
Champ 5 



La phase 1 correspond à l'activation des champs et le lancement d'un programme 
Une fois le programme exécuté, la phase 2 se charge de revenir au niveau d'appel. 
Dans notre exemple, le lancement du programme est intervenu lorsque l'utilisateur 
a activé le premier champ de la deuxième fenêtre. La phase 2 consiste à replacer 
l'utilisateur dans l'environnement précédant l'appel 



de ce genre de programme serait lente. Un 
programme en assembleur va nous venir en aide. 
Ce programme assembleur sera chargé de 
réserver un espace mémoire en RAM VDP ( RAM 
VIDEO ), d'afficher le cadre de la fenêtre, de 
sauvegarder le contenu de la fenêtre et de 
restituer le contenu de cette fenêtre. Chaque fois 
qu'une fenêtre est affichée à l'écran, son contenu 
est sauvegardé dans une zone du VDP. 



Un premier exemple 

Commençons par un exemple simple: Afficher 
une fenêtre sur l'écran avec un texte. Cf listing 1. 
Ce programme affiche une fenêtre et l'efface puis 
l'affiche de nouveau. Pour sortir du programme 
effectuer un [CTLJfCJ. 

Le programme BASIC appelle trois programmes 
assembleur qui sont successivement: La 
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La réservation de place mémoire dans le VDP { 
Allocation mémoire ), affichage du cadre de la 
fenêtre avec un passage de paramètres, la 
fermeture de la fenêtre. 



Allocation mémoire 

Affichage 

Fermeture 



INIT.COM 

0PEN.COM 

CL0SE.COM 



Les programmes assembleur sont dans 
l'Exelmé moire. Pour cette raison, il faut effectuer 
un chargement du programme assembleur avant 
de le lancer à l'aide d'un CALL LOAD. 



Les trois programmes assembleur 

Rassurez-vous, nous n'allons pas rentrer dans des 
explications trop détaillées, mais néanmoins, nous 
examinerons la structure de ces programmes. 

LeDroQrammelNIT.COM 

CALL DO ("INIT.COM", parai, para2) 

Le programme INIT.COM nécessite le passsage 
de deux paramètres. 



CAlL 


8EVAUJ 


MUYL 


FAC+i,TEMP8 


CLRC 




RLC 


FA0H 


M_L 


FAC 


■-[<!; 


/.2 , FAC+l 


m 


20, FAC 


MOVD 


FAC+i,DYNLEN 


-tov 


WHEH, TEMPS 


CALL 


3BASIC 


r->L 


DïNADR,TEMP? 


-GU D 


rEHP?,TEMPJ 


r.w 


S 


CLR 


A 


HOVP 


É.WvRhM 


MOV 


TEMPS, A 


HOVF s 


A,WVRAfl 


■nN 


2SPCHR,TEMP3 


CAlL 


ëBASIC 


MOV 


Ï6ETADRJEHP3 


CALL 


«■BASIC 


rifjvLi 


ÏEMP?,FAC+! 


'lu'. 


2CIFJEHP3 


CALL 


SBASIC 


MOV 


BASSON, TEMPo 


Bfi 


ÉBA3IC 


cdpv 


C:CÛMNLJN.ASM 



RECUPERE NOMBRE MAXIMUM DE FENETRES A GERER 
RESULTAT EN ENTIER DANS TEMPS 
ON CALCULE LA TAILLE DU BUFFER DE PILE 
SOIT (NOMBRE DE FENETRES) «2 +2 OCTETS 



DEMANDE D'ALLOCATION D'UNE ZONE MEMOIRE AU BASIC 

LA TAILLE DE CETTE ZONE EST DANS DÏNLEN 

SI PLUS DE PLACE LA ROU I ERE UNE ERREUR ET REND LA MAIN AU BASIC 

SI ALLOCATION OK ADRESSE DE DEBUT DANS DïNADR 

UN POSITIONNE LE POINTEUR VDP POUR ECRIRE 

PAS DE FENETRE EN COURS 

DN MET LE NOMBRE MAX DE FENETRES 

ON FAIT AVANCER LE POINTEUR D'INTERPRETATION DU BASIC POUR SAUTER LA VIRGULE] 

ON RECUPERE "L'ADRESSE " DU NOM DE VARIABLE PASSE EN PARAMETRE 



ON MET LA VALEUR OBTENUE DANS LA VARIABLE 
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; 


COMMUN. ASM 






1 APPEL 
BASIC 


AUX ROUTINES DU BASIC LE NUMERO DE LA FONCTION EST DANS TENP3 




FUSH 
PUSH 
MOV 
LDA 
MOV 
LDA 
MOV 
POP 
POP 
FR 


A 

B 

TEMP3.6 

@Sy'ËfiOfi+i (6) 

A.TEMP3 

ffiïSROMfBï 

A.TEMP3-1 


ïSïSROM EST L'ADRESSE DE BASE DES POINTEURS DES 
; ADRESSES DES FONCTIONS BASIC 






•TEHP3 


iÙN SE BRANCHE A L'ADRESSE CONTENUE DANS TEMP3 




i CETTE 
fcVALU 


ROUTINES PERMET D'EVALUER LES VARIABLES NUMERIQUES PASSEES SOLS BASIC 




MOV 

CALL 
MOV 
MOV 

CALL 
MOV 
Bfi 


XËPCHRJEMPî 

GBASIC 

U«S,B 

XGETNUMEHP3 

ÉBASIC 

;'.CFI-TEMP3 

«BASIC 


îAPPEL A LA FONCTION QUI FAIT AVANCER D'UN CARACTERE L 
■ ■Ai >,;.:- ,,- .-■;; .;-i fë L'EXPRESSION 
;CALL DÛ("...",var,...i 

,' APPEL A LA FONCTION D'EVALUATION 

JAPPEL A LA ROUTINE DE CONVERSION FLOTTANT EN ENTIER 


INTERPRETEUR DU BASIC 


;CALCU 

addvdf 


D UNE 

MPV 
MOVE 
PUSH 

DEC 
RL 

mh 

ADQ 
POP 
lDA 
MOV 

LDA 
ADD 
ADC 
RETS 


ADRESSE ECRAN A 

/.82.TEMPS-1 

B,TEMP2 

TEMPS 

!"EMPE 
TEMPS 

TEMPS ,TEMP2 
JW,T0F2-1 

TEMPB 

A, B 

êECRAN-1 
B.TEHP2 
A,TEMP2-1 


ARTIR DES COORDONNEES X ET ï 
jTEMFB-1 CONTIENT V 
; TEMPS CONTIENT X 

îECRAN CONTIENT L'ADRESSE DE DEBUT D'ECRAN SOUS BASIC 






!EN SORTIE TËMP2 CONTIENT L'ADRESSE RECHERCHEE 





parai : C'est un paramètre d'entrée. C'est une 
variable numérique ou une expression numérique 
qui représente le nombre maximum de fenêtres. 

para2 : C'est un paramètre de sortie. para2 
représente le nom d'une variable numérique. La 
valeur contenue dans cette variable en retour du 
programme assembleur représente une adresse 
de stockage dans le VDP qui sera exploitée par les 
deux autres programmes assembleur. 

Les fenêtres sont gérées comme une pile. A 
savoir que la dernière fenêtre ouverte sera la 
première fenêtre qui sera fermée. Le programme 
INIT.COM assure l'initialisation de cette gestion. 
Ce programme réserve en mémoire VDP une 
zone où sont stockés le nombre maximum de 
fenêtres, le nombre de fenêtres ouvertes à un 



instant T et les adresses de mémorisation des 
différentes fenêtres dans le VDP. 
Le contenu de para2 est donc l'adresse de début 
de cette zone dans le VDP. 

Le programme OPEN.COM 

CALL DO ("0PEN.COM", para2, X.Y.AX, AY, 
"couleur" ) 

Le programme 0PEN.COM doit être appelé avant 
chaque ouverture de fenêtre. 
Les paramètres du programme: 

para2: C'est obligatoirement le même nom de 
variable que celui utilisé dans IN1T.COM. 
X: La position en X du coin supérieur gauche de la 
fenêtre à l'écran entre 1 et 39. 
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Y: La position en Y du coin supérieur gauche de la 
fenêtre à l'écran entre 1 et 20. 
AX: La largeur en caractères de la fenêtre 
AY: La longueur en lignes de la fenêtre 
"Couleur": C'est un paramètre optionnel qui peut 
être exprimé comme une chaîne de caractère ou 
contenu dans une chaîne de caractères, si l'on 
désire que la fenêtre soit encadrée. 

Exemple: 



CALL DO ( "OPEN.COM", para2, 
1,1,39.10."RW") 



La fenêtre sera posée aux coordonnées X=1, Y=1 
aura une largeur de 39 caractères el une longueur 
de 1 8 lignes, et sera affichée avec un cadre dont la 
couleur de fond est rouge et la couleur d'écriture 
est blanche. 



Attention: Lorsqu'on écrit une fenêtre avec un 
cadre, AX et AY doivent en tenir compte. AX 
minimum = 3 AY minimum = 3. 

Déroulement du programme 0PEN.COM. 

Le programme vérifie si le nombre maximum de 
fenêtres permet l'ouverture d'une nouvelle 
fenêtre. En cas de dépassement, une erreur 
0,127 est générée. Si la création d'une nouvelle 
fenêtre est autorisée, le programme demande au 
BASIC d'allouer une place en mémoire suffisante 
pour sauver l'écran sous la fenêtre et les 
paramètres de la fenêtre. Si une zone mémoire 
est allouée, l'écran sous la fenêtre est sauvegardé 
dans cette zone. Une mise à jour de la pile ( 
INIT.COM ) est effectuée, c'est-à-dire: le compteur 
de fenêtre est incrémenté et l'adresse mémoire 
allouée par le BASIC est stockée dans l'espace 
mémoire de la pile. 



:dpv 


C:EQU.BRC 


LIST 




br 


ÊBEBUÎ 


CAL:. 


SVALu 


W<ï> 


FA01,TEMP9 


:7All 


@EVALU 


MOV 


FAC+I1TEMP8 


LriLL 


KVflLU 


MOV 


FhC+1,TEHP8- 


cm. 


SEVALU 


MOV 


FAC+i,TEPlP7 


IhLl 


ëEVALU 


rttA 


FAC+1,TEMP7 


mJb 


TEMP9JEMP1 



hDC 
H Oïl 

:«.: 
L»LL 

CAlL 

CALL 



TEMP7,A 

A 

TEMP7-1,A 

M,B 

7.0, a 

B.DYNLEN 

MBMBF3 

GBASIC 

»vnadb,tei1p5 
«addto 

IEBP7-1 
êSTDWIN 
TEMP7-1 
7.T*P r 'rtft,CURCHR 

m 



Le programme OPEN.ASM 



IRECUPERE ADRESSE ALLOCATION DE LA PILE DE GESTION DAIS TEKP5 
ION RECLIF'ER I DANS TEMPS 

i¥ DANS TEMP9-I 

; LARGEUR DANS TEMP7 

; LONGUEUR DANS TET1P7-1 

]tK POSITIONNE LE POINTEUR DE LECTURE SLR ZONE DE GESTION 

INOMBRE DE FENETRE EN COURS 

iA CONTIENT LE NOMBRE MAI DE FENETRES 

;SAUT SI NOMBRE DE FENETRES EN COURS INFERIEUR AU MAI 

(TROP D OUVERTURES 

;0N GENERE UNE ERREUR 

(CALCUL DE LA PLACE NECESSAIRE POUR SAUVER UNE FENETRE 
; LARGEUR 



; TAILLE= (2*LAR6EUR«L0NGUEUR) «4 

(DEMANDE D'ALLOCATION D'UNE ZONE DE CETTE TAILLE 

(ON RECOPERE ADRESSE MEMOIRE POIS STOCKAGE 

;0N SAOVE ADRESSE STOCKAr-: rENETRE DANS PILE GESTION 

;DN SAUVE LA FENETRE DANS SA IDNE 

(ON VIENT TESTER SI DEMANDE D'ECRITURE D'UN CADRE 
URPAR FST UN TDKEN DU BASIC SIGNIFIANT PAPENTHSE DROITE 
(PLUS DE PARAMETRE A EVALUER 
(ON TRACE UN CADRE SI PARAMETRE PASSE 
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KTECLR.TEHR ;0N LIBERE UNE PILE INTERNE AU BASIC APRES EVALUATION 
frrrir DE LA CHAINE DE CARACTERES GETSTG DANS LA ROUTINE CAOR 

«BASIC ;FIN 

IROUTINE REMETTANT A JOUR LA PILE DE GESTION 

TEMP9, rEMPl iPOSITION POINTEUR LECTURE ET ECRITURE 

i NOMBRE DE FENETRES OUVERTRES 
H îPLUS UN CAR ON EN OUVRE UNE 

A,WVRAM ; ON L'ECRIT 

A ;ON CALCUL L'ENDROIT OU L'ON DOIT ECRIRE 

A, S ;L 'ADRESSE DE SAUVEGARDE DE LA FENETRE 



MOVD 
TRAP 

LECVDP 



CALL 
MÙVD 
DECD 
MOVD 



ÏÛ,A 
TEHP9.B 

TEMP9-1.A 

B.TEMPi 

8 

TEMPS, A 

A.WVRAM 
TEMF'5-1,A 

A, «VRAM 



êADDVDP 

TEMP2,TEMF'4 

TEMP2 

TEMPS. TEMP1 



r EHF3,H 
fi.WVRAM 
TEMhd-i,H 
m, U VF AH 

temp;,« 

A,WVRAM 

TF1P?-l,û 

A, M VRAM 

V.4,TEMP5 

7.ÛJEMP5-1 

TEMP2 

V.u,TEMF2-l 

MOV TEM1 

LECVDP 

MOVP 

LECVDP 

MOVP 

ADD 

;4DL 



JON REPOSITIONNE L'ADRESSE D'ECRITURE 

ÎTEHP5 CONTIENT L'ADRESSE ALLOUEE PAR LE BASIC !LSB) 

;T£rtP5-l EST LE MSB DE CETTE ADRESSE 

ROUTINEDE SAUVEGARDE DE LA FENTRE 

ON CALCUL ADRESSE ECRAN DU COIN HAUT GAUCHE DE LA FENETRE 

ON LE STOCK DANS TEHP4 POUR LA ROUTINE CADRE 

ON DECREMENTE DE UN CETTE ADRESSE POUR UNE LECTURE BIDON 

ON POSITONNE LE POINTEUR D'ECRITURE SUR ZONE DE SAUVFGARDE DE FENETRE 

POINTEUR DE LECTURE (TEMP2! EST SUR L'ECRAN 

LECTURE BIDON 

ON SAUVE X 

ON SAUVE V 

ON SAUVE LARGEUR 

ON SAUVE LONGUEUR 

ON AJOUTE 4 AU POINTEUR D'ECRITURE 

ON INCREMENTE LE POINTEUR DE LECTURE POUR QU'IL POINTE 

SUR VALEUR CALCULEE PAR ADDVDP 



A, «VRAM 



■-■,.: 

TRAP 

ÛJNZ 
PP T r 



A,WVR6M 

TEMP3,ST0W20 

V,82,TEKP2 

;»,TEMP2-1 

TEMP7,6 

A 

A,TEMP5 

KO, TEMPS- 1 

TEMPS, TEMP1 

10 

TEMP7-1,STOWO 



JLECTUREATTRIBUT ECRAN 

îECRJTURE DANS ZONE SAUVEGARDE 

! LECTURE CARACTERE 

(ECRITURE 

! BOUCLE SUR LARGEUR' FENETRE 

iPOINTEUR DE LECTURE SUR LIGNE SUIVANTE 

;0N CALCULE POSITION DU POINTEUR D'ECRITURE 
îCAfi ON VIENT D'ECRIRE 2H.ARGEUR OCTETS 



,'ON SE REPOSITIONNE 

;0N BOUCLE SUR LE NOMBRE DE LIGNES 

î SOURCE ASSEMBLEUR A INCLURE 
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1 e programme Cl OSE.COM 

CALL DO ("CL0SE.COM". para2 ) 

Le programme CL0SE.COM provoque la 
fermeture de la fenêtre et la restitution du lond de 
l'écran sauvegardé par le programme 0PEN.COM. 

para2: C'est obligatoirement le nom de la variable 
numérique passée dans les deux programmes 
précédents. 



ppmnleme nl du pmnramme 



Le programme CL0SE.COM récupère dans la 
mémoire de pile l'adresse de sauvegarde de la 
dernière tenêtre ouverte ( s'il n'y a pas de fenêtre 
ouverte, le programme retourne au BASIC ). Il 
récupère ensuite les paramètres de cette fenêtre, 
ce qui lui permet de se repositionner dans la 
mémoire écran. Il rest'rtue l'écran qui avait été 
sauvegardé. Il libère la place mémoire allouée par 
le BASIC pour cette fenêtre. Il remet à jour la zone 
de pile. 



BR 

CALL 

MB 
101' D 
TRAP 

l e:vbf 

T5TA 
JNZ 
RETS 

BEC 
MOVP 
PUSH 



LECVDP 

LECVDP 
MHZ 



>1ÛVD 

TRAP 



C: ECU. SPC 

eBEBUT 

êEVALU 

FflC+UEMP9 

TEMP9,TEM [ i 



A.TEMP5-1 
TEMP5,TEMP1 
TEMPS, TEBF9 



MOV A, TEMPS 



MO» A.TEMP7 

LECVDP 

MOV MEMP7-1 

CALL 5ADBVBP 

MOVD TEHP2.TEHF1 

ADD /:4,TEMP5 

ADC ;»,TE»Î-: 

HOVD TIW 

MOVD TEMP1 ,TEMP5 



;0N RECUPERE «BRESSE PILE DE SESTIOK 

|0» POSITIONNE POINTEUR DE LECTURE 

; LECTURE DU NOMBRE DE FENETRES OOVERTES 

;PAS DE FENETRE OUVERTE CIAO 

ION MET A JOUR LE NOMBRE DE FENETRE PUISQU'ON EN FERME UNE 
;FENETRE =FENETRE-1 

!î KUtTune fK/Ke «pointer ™s„ 

;0M SAUTE LES ABRESSES QUI NE NOUS INTERRESSENT PAS 



i RECUPERATION ADRESSE DE SAUVEGARDE 

ITENP5 CONTIENT ADRESSE FENETRE A RECUFERER 
iON VA CHERCHER LES PARAMETRES DE LA FENETRE 

POINTEUR DE LECTURE POSITIONNE 

;! DANS TENP8 

\1 DANS TEMP6-1 

; LARGEUR DANS TEMP7 

iKSlflS' ECRAN A PARTIR OE CES COOEBONNEES 
■ON POSITIONNE LE POINTEUR D'ECRITURE SUR CETiE BBRESSE 

ION POSITIONNE LE POINTEUR DE LECTORE SUR LE PREMIER OCTET 
; TEMPS SERA NOTRE POINTEUR POUR L'ECRITURE 
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RÉSTM 










TRflF 


10 


ïM-ÏSE A JOUR DES POINTEURS 




MOV 


TEMP7,TEMP3 




RE5T20 


LECVDP 




5LECTURE D'UN DCTET SAUVE 




KNP 


8,WVffflH 


iECRITURE SUR L'ECRAN 




LEZCVE'F- 








■■HVP 


fl.WVRftM 






L'Jhl 


TEMP3,REST20 


iDN BOUCLE SUR LA LARGEUR 




hDD 


;-:b2,temp5 


iDN SE POSITIONNE POUR ECRIRE UNE NOUVELLE LIGNE 




ADC 


^.îcHPS-l 






tj,'I.' 


TtflPS-TEMPl 






I1ÎJ7 


1EHP7,A 


iON REPOSITIONNE LE POINTEUR SE LECTURE 




RL 


A 






ADD 


A.TEMP2 






ADC 


/:0,TEHP2-1 






D.i^ 


lEMP7-l,REST10 


iBOUr'E SUR LES LIGNES 




MÙVL 


TEMP9,nVM)R 


iON LIBERE LA ZONE QUI ETAIT ALLOUEE fi LA FENETRE 




> J !OV 


V^ISP,TEMP3 






BR 


mmic 






CûPY 


C:CQI1MUN.A5M 





Les équivalences 



Ce fichier est stocké sur Exelmémoire et s'appelle 
EQU.SRC. 



TEMP1 


EQU 


R14 


TEMP2 


EQU 


R16 


TEMP3 


EQU 


R18 


TEMP4 


EQU 


R20 


TEMPS 


EQU 


R22 


TEMP6 


EQU 


R24 


TEMP7 


EQU 


R26 


TEMP8 


EQU 


R28 


TEMP9 


EQU 


R30 


TEMP10 


EQU 


R32 


WVRAM 


EQU 


P46 


RVRAM1 


EQU 


P40 


RVRAM2 


EQU ' 


P36 


STATUS 


EQU 


TEMP5 


SYSROM 


EQU 


>0200 


ECRAN 


EQU 


>C103 


T$OR 


EQU 


>BO 


DYNADR 


EQU 


R69 



DYNILEN 


EQU 


R71 


PAO 


EQU 


R78 


ASSGN 


EQU 





CFI 


EQU 


>6 


CIF 


EQU 


>0C 


GETADR 


EQU 


>2A 


GPCHR 


EQU 


>2C 


GETNUM 


EQU 


>2E 


MDISP 


EQU 


>36 


MNEW 


EQU 


>38 


STGCLR 


EQU 


>3C 


GETSTG 


EQU 


>30 


T$RPAR 


EQU 


>AF 


CUCHR 


EQU 


R38 


LEOVDP 


MACRO 






PUSH 


ST 




DINT 






yQVP 


RVRAM1.A 
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i CADRE. ASH 






CADR 




ROUTINE QUI TRACE UN CADRE DANS LA FENETRE 




MOV 
CALL 
MOV 

CALL 
MOVD 
TRAP 


XGPCHfi,TEMP3 

SBASIC 

X6ETST6.TEHP3 

«BASIC 

FAC+3.TEMP1 




îON FAIT AVANCER LE POINTEUR DE L 'INTERF'ERTEUR BASIC 

;POUR SAUTER LA VIRGULE 

;ON EVALUE LA CHAINE DE CARACTERE PASSE PAR LE BASIC 

:":■;■■:■■■ 

;FAC+3 POINTE SUR UN DESCRIPTIF DE LA VARIABLE 




LECVBP 


iON LIT LA LONGUEUR DE LA CHAINE 




JEG 

CAD0G5 MQy 


CADOIO 
XI, STATUS 
23 

A 

X>1S,TEHP5 

ZB,B 

eCOL-KB) 

CAD02Û 

B,CAD015 

A 

L.^if'.-.'^. 


JON N'ATTEND DEUX CARACTERES ET RIEN D'AUTRE 




CADO10 

LECVD 

PUSH 

LECVDI 

MOV 

MOV 

CAD015 CMPA 
JZ 

DJNZ 
POP 
JMP 


iON LIT LES CARACTERES DE LA CHAINE 




îON DECODE SI IL CORRESPOND A UN CARACTERE COULEUR BASIC 
SON A TROUVE CORRESPONDANCE 

iET NON CE N'ETAIT UNE COULEUR 




CAD020 LDA 
OR 


ëfiACK-i(fi) 
A,TEMP5 


;ON CONSTRUIT L'ATTRIBUT QUI VA BIEN 




POP 
HDV 


H 

£3,B 
«QL-1 (S) 

CADO30 

. . 
CAB005 

mM-i iBi 

A,T£MP5 


îON RECOMMENCE POUR LA COULEUR DE FORESROUND 




CAD025 CMPA 
JZ 

DJNZ 
JMP 

CAD638 LDA 
OR 


i»; 

ÎTEMP5 CONTIENT L'ATTRIBUT DES COULEURS DEMANDEES 




MOVD 
TRAP 


TEMP4JEMP1 
g 


ïON POSITIONNE LE POINTEUR D'ECRITURE SUR ECRAN 




CALL 
3UB 
ADD 
ADC 
MOVD 


êFLINE 
Ï2,TEKP7-1 

;;b2,temp4 

XMEMP4-1 

TEMF4,TEMPI 

8 

9LINE 

ffl2,TB1P4 

'/.0,TEMP4-i 

TEMP4,TEMP1 

8 

TEHP?-1,CAD040 

«LLINE 


îECRIT PREMIERE LIGNE 

iON VA ECRIRE LARGEUR-2 LIGNES 

!ÛN REPOSITIONNE LE POINTEUR D'ECRITURE 




CADO40 CALL 
ADD 
ADC 
MOVD 
TRAP 
DJNZ 
BR 

FLINE 


!ON BOUCLE SUR LE NOMBRE DE LISNES 

iON ECRIT LA DERNIERE LIGNE 

ÎLES TROIS ROUTINES DE LIGNES NE DIFFERENT QUE PAR LES CARACTERES A ECRIRE 




MOVD 
MOV 

JMP 


K>0906,TEMP2 

24,TEMP1 

TLINE 


;>09 CARACTERE HAUT GAUCHE X>b HAUT DROIT 
(XM TRAIT HORIZONTAL 




LLINE MOVD 
MOV 
JMP 


Ï>0807,TEHP2 

X4JEMP1 

TLINE 


!>08 BAS GAUCHE >07 BAS DROIT 
ï>04 TRAIT HORIZONTAL 




LINE MOVD 
MOV 

ÎLINE MOV 
MOV 
MÛVP 
MOVP 
MOV 
SUS 
HOV 


XXB03,T9F2 

'/.Ci.TEMPl 

TEMP2-1.B 

TEMP5,A 

A, - VRAM 

B,UVRAM 

TEHP7,TEMP1-1 

X2JEMP1-I 

TEHP1.B 


i>03 TRAIT VERTICAL 
!>0 CARACTERE BLANC 

ÏÎEMP5 CONTIENT ATTRIBUT VDP 
ÎECRITURE ATTRIBUT 
ïECRITURE PREMIER CARACTERE 

1 

1 






18 
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Ex 



TiOIO 


MOVF 


A,UVRAM 






%\'.f 


B,WVRAM 






DJNZ 


rtMPl-l,TLÛ10 


iON BOUCLE SUR LA LARŒUR-2 




MOV 


TEMP2.B 






MOVP 


fi,«VR«1 






MOV? 


B.WVRfiM 


îDERNIER CARACTERE 


. 


RETS 




TABLES D'EQUIVALENCE COULEUR ET DE CONSTRUCTION D'ATTRIBUT 


COL 




'BWbGCMYfi' 




BfiCK 


BYTE 


0,7,4,2,6,5,3, 


l 


FORE 


BYTE 


0,>EO,>SO,>40, 


JCQ, >A0 




BYTE 


>60,>20 





COMMUN. ASM 

Ce source contient des routines communes à INIT.ASM, OPEN.ASM et CLOSE.ASM. Si vous ne 
possédez pas le langage Exelmax, rapportez-vous à la fin de cette section pour réaliser l'implantation de 
ces routines sous BASIC. 



Le programme BASIC 



Ligne 150 
Ligne 1 60 



Ligne 170 
Ligne 180 



Lignes 190 à 220 
Ligne 250 
Ligne 260 



Chargement du programme d'initialisation 

Exécution du programme d'initialisation avec passage des paramètres: 

1 fenêtre et ADX 

Chargement du programme d'ouverture et d'affichage de la fenêtre 

Exécution du pogramme d'ouverture et d'affichage avec passage des 

paramètres: ADX, coordonnées de la fenêire X=1 , Y=1 , longueur de la fenêtre 

L=39, hauteur de la fenêtre H=20, et la couleur d'affichage de la fenêtre 

Affichage d'un texte dans la fenêtre 

Chargement du programme de fermeture de la fenêtre 

Exécution après la frappe d'une touche du programme de fermeture de la 

fenêtre avec un passage de paramètres. 



■8 PARAMETRAGE FENETftE s 

■■„ .-„.■■ Si 



1 - L e.::-.--- VJ -1EE" 



-;.r.. .,1; ■;■,- , r .p tOUCheJ" 



. - -'-i-- t -i 

t 5i» CAU. LEJA1 

-u, CAU DOi anst,cûi ,AEXJ 



Listing 1 



Ce programme ouvre une fenêtre, affiche un texte 
à l'intérieur de celle-ci et efface la fenêtre après la 
frappe d'une touche quelconque du clavier. 

Ce programme est figé dans le sens où il affiche 
une fenêtre dans un secteur de l'écran déterminé 
à l'avance. Rien ne nous empêche d'introduire les 
coordonnées, le texte, et la couleur d'affichage de 
la fenêtre durant l'exécution du programme. Ceci 
permet de poser une fenêtre à un endroit 
quelconque de l'écran. 

Listing 2 

Ce programme est facile à réaliser. Il faut 
simplement introduire les différents paramètres 
nécessaires au tracé de la fenêtre et le texte des 
rubriques. 
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Zone réservée par te programme INIT.COM 



ADD^ >FA81 
Nombre de fenêtres 



— ► para2= adresse et 



MSS AD1 >FE 



para2->FABl 
ioira do cet octal 

" I x | 

I * I 



Copie Hé l'écran sous 
{ 2 • AX * AY ) octets 



Cet exemple est pris pour trois fenêtres maximum, et deux fenêtres ouvertes. 



: 



i" i 



Listing 2 

100 <###«|HMK#ttt##ir1r4M#tt4ft#*#4MI»#M 
îir ># PffiTflfËTRnffi FENETRE # 

:,o call lGaû:-'Injt.ddm'-! 

14* Chu- DO ('"M IT.COM" t 1,^E-s'Î - 
i50 CLS "SBB":CALL COLÛRi'OOB 11 i 

Î7i"i 'I ShIÎIE DF=: -h^fiETRES ft 

■ ■ ■ :=:■■:■:■: = "■'-■ I-- 

f?0 LOCATE ■: 5 , 5 > : f F. I N i "Position en >::"; 
2<Vi ACCEPT BEE? VALIDATE!DIGlT!NUlLil),X 
210 IF X<=0 TKEN 190: IE tï& THEN 190 
220 LOCATE (g,5;:FR1NT ''Position en y:"; 
2"0 ACCENT BEER VAL IDflTE ÏD IGIT :■ NULL U} ,ï 

EN 220 
050 _ÛCATE '/,:.: : T-:NT "Lcnqueur:"; 
loi ... BEEP IULL(5),U 

2'0 ÏF VhL':L*ï>40-X THEN 250 

2; DuiEur:"; 

2 90 AfJtPT BEER VfiLïMTE( H H3HY6fflC">SIZEtl)NULL("» 

300 LOCATE <9,5):FRINT "Nombre de rubriQues:"; 

310 ACCEPT BEEP VAL I DATE : " 1 2345 " ) Bî IE ■ i > NULL ! " 1 " ) ■ 

32(r CLS 

330 L=VhlïLJ)-2 

540 FUR 1=1 T0 N 

350 LOCATE i5,b)iPPIriï "Te>:tE: s ; 

360 ACCEPT BEEP VALîfJATE iALPHA: SIZEÏL 'NLILL i"A" J , T^ 

370 NEXT I 



) Fiift t=\ Tu 20 

) LOCATE (ï,l);PRINT rFTf V'_",WÎ 

) NE .a 

) C6LL LOftDC'OPEN.CGM-' 

, L^LL COLORA 0'!iîi."B") 

; PhLl D0!"DPEN.COM",A0'i,l.V,L+2,fJr2,C^ B E 

j FOR 1=1 TD fil 

D lCCATE iI+¥,X+l>:PRINT Tt(I) 

) NEU I 

CALl C0L0R<"0"&CJ& i T , i 

ï=[ 

ri .0CATE a+V,X+l):PRINT T*<1> 

CALL LÛADi a eLQSE.COH"] 

RP*=KE¥* 

CALL D0 ï " CLOSE . C0M " , ADX 1 > 

PAUSE 

C0T0 410 
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Ordinogra mme de principe 



Les lianes du programme 

La structure de la saisie: Les lignes de programme 
faisant intervenir une saisie doivent prendre en 
compte les différentes limites physiques de 
l'écran: Position en X et en Y qui ne doivent en 
aucun cas déborder, c'est-à-dire une coordonnée 
horizontale X comprise entre 1 et 40, une 
coordonnée verticale Y comprise entre 1 et 20 
De plus, la longueur et la hauteur de la fenêtre 
doivent répondre à certains critères: Longueur de 
la fenêtre inférieure au nombre de colonnes ( 40 ) 
diminué de la position de départ (X). L<40-X. La 
hauteur de la fenêtre sera considérée comme le 
nombre de rubriques augmentée de 2. Tous ces 
paramètres donnent une surface de fenêtre 
capable: 1- d'être affichée à l'écran sans erreur de 
débordement, 2- de contenir toutes les rubriques 
et leur texte en hauteur et en longueur. La 
couleur de la fenêtre est ensuite saisie dans un 
choix possible de 8 couleurs. 

Une fois ces limites physiques définies, le 
programme commence la saisie des textes des 
rubriques. Ces textes doivent être limités à la 
longueur de la fenêtre diminuée de 2 unités ( ceci 
permet d'occuper la totalité de l'espace libre de la 
fenêtre sans empiéter sur le tracé du cadre ). 

Lorsque la saisie des textes est terminée, on 
remplit l'écran de signes ( lignes 380 à 400 ). Ceci 
permet de visualiser après l'effacement de la 
fenêtre le bon fonctionnement du programme 
assembleur chargé de mémoriser et d'afficher le 
fond graphique occulté durant l'affichage de la 
fenêtre. 

Le programme chargé d'ouvrir la fenêtre est dans 
un premier temps chargé ( ligne 410 ) et ensuite 
exécuté ( ligne 430 }. Les paramètres de définition 
de la fenêtre sont transmis dans ce programme ( 
ADX1 , X, Y, L+2, N+2, et C$ ). La fenêtre s'affiche. 
Les textes des rubriques sont ensuite positionnés 
correctement puis écrits à l'intérieur de la fenêtre ( 
lignes 440 à 460 ). La première rubrique doit être 
affichée en mode vidéo inverse. Ceci est réalisé 
aux lignes 480 à 490. 

Les lignes 500 à 530 sont chargées d'attendre la 
frappe d'une touche du clavier puis de fermer la 
fenêtre et de restituer le fond sous la fenêtre. Le 
programme dédié à la fermeture de la fenêtre est 
dans un premier temps chargé ( ligne 500 ) puis 
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Longueur de l'écran 





X=4 










.i 




Rubrique numéro 1 






Y-2 






Hauteur de la (enêtre= Nombre 




Rubrique numéro 2 




de rubrique + 2 
Hauteur = 5 




Rubrique numéro 3 




Nombre de rubrique + 3 






" 




Longueur de la fenêtre 


L=12 


Longueur des lentes = 12-2= 10 


Hauteur de 


'■'cran 







exécuté ( ligne 520 ) avec la transmission d'un 

paramètre. 

Le programme boucle sur l'affichage et la 

fermeture d'une fenêtre. 



leur contenu sont connus d'avance. La deuxième 
solution peut répondre à la création spontanée de 
fenêtres pour générer une application sur 
mesure. Dans tous les cas, les paramètres seront 
écrits dans un tableau à N dimensions. 



Comment ouvrir plusieurs fenêtres à 
l'écran ? 

Nous savons ouvrir une fenêtre. Maintenant, nous 
allons nous attacher à ouvrir plusieurs fenêtres à 
l'écran. Mais avant de nous lancer dans la 
programmation, réfléchissons un peu et essayons 
d'analyser la situation. A chaque fenêtre, 
correspond un nombre de paramètres fixes qui 
sont : les coordonnées hrizontale et verticale, la 
longueur, la hauteur, le nombre de rubriques, le 
texte des rubriques et la couleur de la fenêtre. 
Tous ces paramètres doivent être disponibles 
durant l'exécution du programme. Plusieurs 
possibilités s'offrent à nous. Les paramètres 
peuvent être écrits sous forme de données dans 
des instructions DATA ou être introduits durant le 
déroulement du programme. La première solution 
correspondra au cas où le nombre de fenêtres et 



Structure du tableau 

Le tableau des fenêtres que nous appellerons T$ 
sera un tableau à trois dimensions. La première ! 
colonne du tableau contiendra les numéros 
d'ordre des fenêtres. Les deuxième et troisième 
colonnes contiendront les coordonnées 
horizontale et verticale. La quatrième colonne 
contiendra la longueur, la cinquième colonne 
contiendra la hauteur de la fenêtre, la sixième 
colonne contiendra le nombre de rubriques, la 
septième colonne contiendra la couleur de la 
fenêtre. La sixième et la septième colonne 
"s'ouvriront" sur une autre dimension du tableau 
qui sera chargée de recevoir le texte des 
rubriques et leur mode d'affichage et d'autres 
paramètres que nous étudierons par la suite. 
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Tableau des fenêtres 
T$(20. 8,8) 



// 



Z^L 



Numéro d'ordre 

de la fenêtre : 

T$ (1,0.0) 

Position en 

X de la lenêtre 

TS(M.O) 

Position en 

Y de la lenêtre 

T$(l,2,0) 

Longueur de 
la fenêtre 
T$( 1,3,0) 



Hauteur de 
la fenêtre 
T$( 1.4,0) 

Nombre de 

rubriques 

de la fenêtre 

T$(l,5,0) 

Couleur de 
la fenêtre 
T$(l,6,0) 



/ , /y^ 



TTTT 



T^T 



Couleur de 
la rubrique 
T$(I.6,Z) 



Texte de la rubrique 
T$(I.5,Z) 
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Remplissage du tableau à l'aide de DATAS 

Nous nous plaçons ici dans un cas où l'application 
est connue d'avance et où les besoins sont 
parfaitement déterminés. Par exemple, nous 
supposerons que l'application nécessite 
l'utilisation de trois fenêtres. Une première fenêtre 



contiendra trois rubriques et les deux fenêtres 
restantes contiendront deux rubriques. Le tableau 
général doit être intialisé. Le nombre de fenêtres 
maximum NMAX est configué à 3. 



Ordinogramme de principe 
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'Bi**ï!^ïï#*«sf^#####M###M#M#i!## 


::■: 


:% F'ftp ! h.-iETRAGt FENETRE S 




>■ — :!-!.;■::;,:■ ■■:■-.■ :-::;, :.:;=::;^;: 




j:h ïî'.:v,s.3 : ' 


Î4C 


Wr-R>=3 r NDHE-F£ SE FENETRES MA* 


1K 


DU LGhD(" JNIT.COM") 


it<: 


CALL DÛ^INIT.CÛtfSNMSX.ADXl) 


i "■".. 


Ll: , î3Bi.-.":>:ALL lOLQR'"OEB"> 


m 


* „ *' PARAMETRES « 




DATA 1,1,1, 13 5-;->',H 




DhTA 2,15, 10, 10,4, 2,M 




DATA à, î ,£,39,4,2, V 


25 


WK " 'î'I,l,0),TffI,2,0! 




R£^ '-=■;.".■ ."- : 'i,4,0),T$£l 1 5,0) 


2&_ 


E-ATA FIChiEF , [MPRÏfER, 8 ", SALWER," " 




NEXi 




ÛiTS EDITER. 1, COPIES, " " 


"iï 


FOR 1=1 TG VALiTli2,5,C>H 


J9 


FEAL' "ïOS.P. 1^2,6,1) 


3& 


NEÏT : 




^TA COULEUR.;, FOND. 1 ' !i 




FUR 1=1 TQ VALaji-3,5,0)) 


| 


READ j$(3,5,ImT*(3,6,I) 


^#«#iis4BM#M#M####s$###ft###t# 




'# REHPLISSASE DE L'ECRAN # 


43! 


#«###4NHMMt4#l NHHHNHNMMHW 


44i 


CLE 


45'- 


FOR 1=1 TO 20 


46. 


LÛCATE -:l ,1):PRÏNT RPTî!" ",40! 


fJTi 


«EXT 




P*#ï=#femm=*##*m#s*#i!##Mt## 




'# EXPLOITATION S 




't*i==^^MiiSSi!#s=#=^^SS###S=M#îi 


5Îi 


for i=: to mm 




J£=VALiT*U,:,0>> 




¥=VAl(TÎ (1,2,0)1 




^=JAL(TîiI,3,9i> 




H-=yAL(Tîii,4,0). 




<nt4####ik*###»w«#»##########wi 




■4 AF=EL PÛL-TIME CADRE # 




ijF#^ri*?îf!*!ftlitî!fl*#S#itit#S«###*####### 




BQSL'S S3Ô 
PftUSE 


d4 


NE*T 


65 


FOR 1=1 TO NMA* 




AOiUF ?20 




NEStT 


6âé BÛTO 430 


fc9f 


<#*#M##S####*BS##i!#il#######^==m 


700 Ht FERMETURE FENETRE # 


71 


„==„-,; F S^i^ii ;::.-.■ ■ ■ 


720 CALL LOAD ("CLOSE. CÛM") 


730 CflLL DC("CL0SE.CQM",ADX1) 


740 PAUSE 


'- 


8ETURN 



j '# ROUTINE CADRE # 

1 pif =;■[ = = r::.= -::ii: -::.i = = ;;T:riri::; ■: nt; rr tr s- ;! 

? CALL LOAD!"0PEN.CDH") 

5 CALL*DO("OPEM.C0)1",ADXl,/,ï,L,HH,Ci) 
) RETUR'M 

') !# ECRITURE DES TEXTES # 

-:.'^,,. ■. .:■ .::■■:::: : : 

:. fiU5=7ALiTfiI,5,('}ï:f=^+i 

) FOR J=l TD PUB 

.( V=¥+l 

) LDCATE iy,ïi:C0UL*=T*iI,6,J):W=££GJ^i.i.!^CCU L i 

} tî-=SEGÎ(C*,2,l):IF U=" " THEfi CÎ=5EGÎ(C*,1 ,1) 

i CALL COLDR("û"*CÏ) 

) LDCATE <Y,X>;F'RINT TÏ(I,5,J) 

) NEXT 

■ f t T L'Rr. 



Les lianes du programmes 

Le programme commence par le 
dimensionnement du tableau des fenêtres, 
toujours prévoir plus de mémoire . Le programme 
d'initialisation des fenêtres est chargé puis 
exécuté. 

Lignes 210 à 230 

Ecriture d'un jeu de données ( paramètres 

physiques des fenêtres ) 

Lignes 240 à 280 

Lecture et rangement des paramètres dans les 6 

premières cases du tableau 

Ligne 290 

Ecriture d'un jeu de données correspondant aux 

textes des rubriques et à leur mode d'affichage 

de la première fenêtre 

Lignes 300 à 320 

Lecture et rangement dans la troisième dimension 

du tableau 

Ligne 330 

Ecriture d'un jeu de données correspondant aux 

textes des rubriques et à leur mode d'affichage 

de la deuxième fenêtre 

Lignes 340 à 360 

Lecture et rangement dans la troisième dimension 

du tableau 

Ligne 370 

Ecriture d'un jeu de données correspondant aux 

textes des rubriques et leur mode d'affichage de 

la troisième fenêtre 

Lignes 380 à 400 

Lecture et rangement dans la troisième dimension 

du tableau 
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Lignes 410 à 470 

Remplissage de l'écran avec des soulignés ( ceci 

permettra par la suite de test pour le bon 

fonctionnement du programme assembleur 

chargé de restituer le lond de l'écran occulté par 

une fenêtre ) 

Lignes 460 à 560 

Calcul des paramètres physiques d'une fenêtre 

Ligne 600 

Appel de la routine assembleur chargée de tracer 

le cadre d'une fenêtre avec les paramètres 

calculés aux lignes précédentes 

Ligne 610 

Appel du sous-programme BASIC chargé 

d'afficher les textes des rubriques pour une 



fenêtre donnée 

Ligne 620 

Temporisation, attente de la frappe de la touche [ 

ENVOI ] 

Lignes 720 à 730 

Appel à la routine assembleur chargée de fermer 

une fenêtre donnée. Les fenêtres sont fermées 

dans l'ordre inverse de leur apparition à l'écran ( 

3ème, 2ème puis 1ère ) 

Ce programme affiche donc trois fenêtres et leur 
contenu à l'écran puis les efface. Lorsque toutes 
les fenêtres sont effacées, elles réapparaissent. 
Pour sortir du programme, appuyez sur [ CTL ] C. 



2. 



i _ i 



Appel routine 
ouverture 
de fenêtres 



Appel routine 
affichage 
des textes 




Appel routine 
fermeture 
de fenêtres 
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Maintenant, nous allons créer un nombre 
quelconque de fenêtres. Le nombre, les 
positions, la couleur, les textes seront introduits 

pendant l'exécution du programme. 

Voir listing définitif 



Le programme présenté permet de créer des 
fenêtres, de les positionner sur l'écran, de définir 
le texte des rubriques. 



Les fenêtres et les arbo rescences 

Nous savons créer des fenêtres. Cela n'est pas 
tout. Il faut maintenant pouvoir exploiter les 
fenêtres. En effet, chaque rubrique de la fenêtre 
correspond à une tâche bien particulière que le 
programme devra effectuer ou correspond à une 
fenêtre qui elle même générera l'ouverture 
d'autres fenêtres. Bien entendu, il faut avoir une 
vision précise de l'application. 

Schéma 



Rubrique 2 ■ 
Rubrique 3 . 
Rubrique 4- 
Rubrique 5 



Fenêtre W 7 2 




k niihiinnr 








Rubrique i 














Rubrique 1 
Rubrique 1 


. 


. . 








Rubrique 2 
Rubrique „ 




► Lan» fexécufon dm programme 











Lance FexécuHon dm programme 




► Lance 5 appkalions oSïeVertes 



-► CorsutsUon du analogue 



Effectivement, on risque de s'y perdre parmi ce 
dédale de fenêtres et d'applications. De quoi 
avons-nous besoin pour arriver à ce résultat? 
Chaque fenêtre et a fortiori, chaque rubrique est 
susceptible soit de générer le lancement d'une 
application ( cas de la rubrique n°2 de la fenêtre n° 
1 ) soit de générer l'ouverture d'une autre fenêtre ( 
cas de la rubrique n°1 de la fenêtre n°1 ). Chaque 
rubrique d'une fenêtre peut être sélectionnée ( 
déplacement du mode vidéo inverse d'une 
rubrique à l'autre ) et activée par l'appui sur la 
touche [ ENVOI ]. Ceci implique la programmation 
d'une routine chargée de déplacer le mode vidéo 
inverse de proche en proche el d'une autre 



routine capable d'activer une rubrique ou un 
champ. De plus une fenêtre et ipso facto une 
rubrique peut être désactivée ( généralement par 
l'appui sur la touche [ ESC ] pour revenir au 
niveau supérieur. C'est-à-dire que si la rubrique 
n°1 ou 2 de la fenêtre n°2 est désactivée, le 
programme doit afficher le niveau supérieur ( 
niveau avant l'activation et l'affichage de la 
deuxième fenêtre ) qui est ici la fenêtre n°1. De 
même, si la rubrique n°2 de la fenêtre numéro 1 
est activée, une application est lancée. Lorsque 
l'application est terminée, le programme doit 
revenir au niveau supérieur, qui dans ce cas est la 
fenêtre n°1. Joli casse-tête en perspective, mais, 
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ne nous décourageons pas, la suite est encore 
plus compliquée. 

De ce fait, chaque rubrique doit être 

accompagnée de son "plan d'action"- Expliquons- 
nous: Prenons par exemple la rubrique n°1 de la 
fenêtre n° 1. On connaît son niveau d'activation. 



C'est l'attichage de la fenêtre numéro 2. Toute 
l'astuce consiste à renseigner le programme sur ce 
niveau. Ce n'est pas véritablement un problème, 
car nous utilisons un tableau à trois dimensions qui 
peut, outre le fait de contenir le texte des 
rubriques, intégrer de nombreux autres 
renseignements. 



RiBrique n°l 

Rubrique nf 2 

Rubrique n° 3 
Rubrique n° 4 
Rubrique n" 5 


Ftnjln n*1 

Départ Arrivée 


Rutarinuen''l 


FtaUn n' 2 

Départ Armée 


Rubrique n "1 
Rubrique n" 2 
Rubnquen* 


EmUa n'a 

Départ Armée 


| , 


1 ■ 1 


|, |. 


1 ' 1 ' 










4 HGR 


h 


PGFT 








\- 1 ■ 


| , 


1 • 1 










L_ 


PGR 










h 


o- 











indice l'abandon ou programme 



"PGR indique le lancsmen! Jim pragramine 



Niveau de départ et niv eau d'arrivée 

On définit un niveau de départ comme l'état de la 
fenêtre avant l'activation. Si nous prenons la 
fenêtre n°1, le niveau de départ est 1. En effet, il 
n'existe aucune autre fenêtre antérieure. On 
définit le niveau d'arrivée comme l'état de la 
fenêtre après l'activation d'une rubrique. Par 
exemple, pour la rubrique n° 1 de la fenêtre n° 1, 
le niveau d'arrivée est 2. 

Cela signifie que si la rubrique n° 1 de la fenêtre n° 
1 est activée, le programme affiche la fenêtre n°2. 
En fait dans ce cas, le niveau d'arrivée de la 



fenêtre n°1 devient le niveau de départ de la 
fenêtre n° 2. Reprenons le schéma précédent et 
écrivons les niveaux de départ et les niveaux 
d'arrivée des différentes fenêtres. Nous notons 
que pour les rubriques 2 et 4 de la fenêtre n° 1, le 
niveau d'arrivée est un programme. 

Adaptation des niveaux au programme 

Il faut maintenant adapter les niveaux de départ et 
d'arrivée au programme. Ceci peut être réalisé en 
ajoutant quelques lignes d'instructions dans la 
saisie des paramètres physiques de la fenêtre. 
Ces niveaux seront écrits et rangés dans des 
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éléments de la troisième dimension du tableau 
des fenêtres lors de la saisie des rubriques. Pour 
réaliser cette opération, il suffit d'écrire ce groupe 
de lignes ( Cf listing final }. 

600 LOCATE (5,5 ): PRINT "Texte:"; 

610 ACCEPT BEEP VALIDATE { ALPHA ) 

SIZE (L ) NULL ("A"), T$( I, 5, J ) 

620T$(I,1, J)=STR$(I) 

630LOCATE (6,5 ) : PRINT "Niveau de 

départ:"; 

640PRINT l 

650 LOCATE ( 7,5 ): PRINT "Niveau 

d'arrivée:"; 

660 ACCEPT BEEP SIZE (17 ) NULL ( ), 

T$( 1,2, J } 

Comme nous l'avons écrit plus haut, le niveau 
d'arrivée d'une rubrique peut être un programme. 
A ce sujet, nous devons savoir qu'il est 
pratiquement impossible de lancer une application 
contenue dans le programme principal. Si le 
niveau d'arrivée d'une rubrique est un programme, 
ce dernier devra se situer sur l'Exelmémoire ou sur 
disquette. Le niveau d'arrivée se résume alors au 
nom du programme. Nous verrons par la suite 
comment lancer le programme. 



idéo inverse dans les 



p ép i :^c e m ent du mode 
fenêtres 

Pour sélectionner une rubrique au sein d'une 
fenêtre, nous devons simuler le déplacement du 
"curseur" dans cette fenêtre. Pour réaliser ce petit 
bout de programme, nous devons obligatoirement 
partir d'un point de départ. Ce point de départ est 
l'affichage de la fenêtre 1 avec la rubrique 1 
affichée en mode vidéo inverse. 
Les trois programmes que nous avons écrits 
affichent toutes les fenêtres sans discrimination. 
Ceci ne nous intéresse plus à présent. Bien au 
contraire. Une fois la saisie des paramètres 
fenêtres réalisée, le programme doit afficher la 
première fenêtre et attendre la frappe des touches 
de commandes. Ces touches de commandes 
sont: la touche [ ENVOI ] pour l'activation d'un 
champ ou d'une rubrique, la touche [ ESC ] pour 
la désactivation d'un champ ou d'une rubrique, la 
touche [ Flèche vers le bas ] pour la sélection 
d'une rubrique ou d'un champ. 



Affichage de la fenêtre n Q 1 

Lorsque tous les paramètres des fenêtres sont 
introduits, le programme affiche la fenêtre n°1. 
Ceci se réalise très simplement ( voir listing 5 ). 
Après la saisie des textes des rubriques et des 
différents niveaux, nous avons rempli d'autres 
éléments de la troisième dimension du tableau 
avec les coordonnées des différents textes à 
afficher. 

730 T$(I,3,J) = STR$(X+1) 
740 T$(I,4,J) = STR$ (Y+J) 



La ligne 750 fixe le mode d'affichage de chaque 
rubrique. Le mode d'affichage de la première 
rubrique de chaque fenêtre est fixé au mode 
vidéo inverse, ligne 790. 

Grâce aux lignes 730, 740, 750 et 790, nous 
avons tous les éléments pour déplacer de proche 
en proche le mode vidéo inverse. L'affichage à 
proprement parler de la première fenêtre que vous 
aurez définie, se réalise simplement en donnant I 
= 1 et en convertissant les chaînes de caractères 
contenues dans les éléments du tableau. Pour 
mémoire: 



T$(l,1 ,0) = X Coordonnée horizontale 

T$(l,2,0) = Y Coordonnée verticale 

T$(l,3,0) = L Longueur de la fenêtre 

T$(l,4,0) = HH Hauteur de la fenêtre 

T$(l,1 ,0) = C$ Couleur de la fenêtre 

La saisie elle traitement des touches 

La saisie et le traitement des touches de 
commandes ( déplacement du mode vidéo, 
activation et désactivation ) sont traités aux lignes 
800 à 860. A la sortie de ce bout de programme, 
le code de la touche appuyée peut prendre les 
valeurs 1, 2, 3, 4 

Code Action 

1 Activation 

2 Déplacement vers le bas 

3 Désactivation ( retour au niveau 
supérieur ) 

4 Déplacement vers le haut 
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Première et deuxième 
dimension du tableau 



-— — Couleur de la fenêtre 
Nombre de rubriques 



cSof ^ rePréSm,e * "° isiè ™ *«*" *u <ao,ea. Représentons ce„e , ra isiè m e 




T$( 1,3. RUB)= coordonnée horizontale 
du texte de la rubrique= X 



T$( 1, 4, RUB ) = coordonnée verticale 
du texte de la rubrique = Y 



T$(l. S. RUB), Texte delà rubrique 



T$ ( I, 6, RUB ),mode dalllchage 
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RUB=1 




RUB=2 


Rubrique 2 


RUB = 3 


Rubrique 3 


RUB=4 


Rubrique 4 


RUB = 5 


Rubrique 5 




On appuiaiut la touche 

ÏÏJ 



OEP = DEP+1 = 2 



On procède de la même manière jusqu'à ce que DEP = RUB ( ici 5 ). Lorsque cette valeur est atteinte, le 
mode vidéo inverse est remis en fonction pour la rubrique numéro 1 . 



Une instruction de branchement à quatre sous- 
programmes ( ligne 1140 ) conclut le traitement. 



Le déplacement vers le bas 

C'est un sous-programme qui sera chargé de 
gérer le déplacement vers le bas. Ce sous- 
programme consistera uniquement à lire les 
valeurs des éléments de la troisième dimension du 
tableau et à changer le mode d'affichage de deux 
rubriques adjacentes. 



Les lïones d u sous-oroaramme 

Ligne 1390 

Teste si le mode vidéo inverse est positionné sur 
la dernière rubrique. Si c'est le cas, branchement 
au sous-programme de remise à zéro. 
Ligne 1400 

La touche [ Flèche vers le bas ] a été 
appuyée. Le drapeau de déplacement est 
incrémenté d'une unité. Jusqu'à présent, c'était la 
première rubrique qui était affichée en mode vidéo 
inverse. 



Lignes 1410 à 1420 

Il y a déplacement des modes d'affichage. 

Lignes 1430 à 1480 

On convertit les différentes coordonnées et on lit 

le mode d'affichage ainsi que le texte. 

Lignes 1490 à 1500 

On écrit le texte en mode vidéo inverse. 

Lignes 1510 à 1520 

On écrit la rubrique précédente en mode normal 



L'activation d'une rubrique 

Un problème délicat en vérité. En effet, comme 
nous l'avons vu, l'activation d'une rubrique peut 
entraîner l'ouverture d'une fenêtre ou le 
lancement d'une application. Pour définir ces 
actions, nous avons introduit la notion de niveau 
de départ et niveau d'arrivée. Ici, nous nous 
occuperons uniquement du niveau d'arrivée. 
L'activation d'une rubrique se réalise en 
sélectionnant à l'aide de la touche [ Flèche vers 
le bas ] une rubrique puis en appuyant sur la 
touche [ ENVOI ]. Au départ, lors de la saisie des 
paramètres physiques des fenêtres, les niveaux 
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X= , Y= ,COUL$= 
X1 = . Y1 =, COULl$= 



Affichage des deux 

textes dans des mode 

différents 



aïeuls les coordonnées de 
du texte de la rubrique pour 
BUB=DEP, ainsi 
que le mode d'affichage 

COUL$. — : 
On Ut le texte a afficher 
On répâte cette môme série 
pour RUB» DEP-1 



Retour au programme 



de départ et d'arrivée ont été définis. Pour bien 
comprendre l'activation d'une rubrique, reportons- 
nous au synoptique général de l'application tel 
qu'il a été décrit quelques pages avant. 

Plan d'action de la fenêtre 1 

La rubrique 1 de la fenêtre 1 induit l'ouverture de 
la fenêtre 2. La rubrique 2 de la fenêtre lance 
l'exécution d'un programme. La rubrique 3 de la 
fenêtre 1 induit l'ouverture de la fenêtre 3, la 
rubrique 4 de la fenêtre 1 induit la consultation du 
catalogue ( Exe Imé moire ou disquette ), la 
rubrique 5 de la fenêtre 1 permet de quittter 
l'application en cours. 

Traduisons en termes de niveaux d'arrivée. 



Rubrique 


Niveau 


1 


2 


2 


PGR 


3 


3 


4 


PGR / Consultation 


5 






Ces différents niveaux sont contenus dans les 

éléments 2 de la troisième domension du tableau. 

Activation sur une fenêtre 

En fait, lorsque l'activation d'une fenêtre induit 
l'ouverture d'une fenêtre, le sous-programme 
chargé de l'activation lira les valeurs contenues 
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RUB.1 
RUB = 2 
RUB = 3 
RUB.4 
RUB.5 


T$ ( 1, 2, 


RUB ) 




Ouverture de la deuxième fenêtre 
Ouverture de la troisième fenêtre 




2 








PGR 


3 






PGR 












dans ces éléments. Ainsi, si la rubrique numéro 1 

de la fenêtre numéro 1 est activée, le programme 
lira 2 comme valeur. Cette valeur sera prise comme 
le numéro d'ordre de la fenêtre à ouvrir. C'est 
simple comme bonjour. Un branchement simple 
mais judicieux à l'affichage d'une fenêtre et le tour 
est joué. Mais il existe quelques restrictions. En 
ettet, il faut savoir discriminer les différents 
niveaux. Ainsi, si le niveau se résume au 
lancement du programme, cette opération devra 
être traitée à part. De même, si le niveau vaut zéro, 
ce qui correspond à l'abandon de l'application en 
cours, on devra également envisager un 
traitement différent. 



Discrimination entre activation d'une fenêtre et 
lancement d'une aonlicalinn 

Cette opération est facile à réaliser. Il suffit de 
tester si le niveau est une expression numérique, 
auquel cas, on a soit une ouverture de fenêtre soit 
un abandon. Si le niveau n'est pas une expression 
numérique, alors on procède au lancement d'un 
programme. 

Comme nous traitons la différenciation entre 
l'activation qui entraîne l'ouverture d'une fenêtre 
et l'activation qui entraîne le lancement d'un 
programme, nous devons envisager tous les cas 
possibles. 



PGR fenêtre 



Lancement application 



Lancement PGR fenêtre 



Lecture fichier 
paramètres 
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( Début ) 



TS[ 20.8,8 ) 
DESACTIF-1 

APPEL-1 



Ordinogramme général 



S-P ERREUR f] 1 B-D I- 



8-3 | 



L X JL J-, X 



t t t t 



T-4 T-0 ~~ 1 TDUch 

( . — ' rotourà 



inaclives 
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Ordinogramme général { voir paoe précédente 1 



Le programme est développé sous lorme de sous- 
programmes qui sont appelés au cours de son 
exécution. 

Placçons-nous dans le cadre de l'utilisation du 
programme. Au départ, les paramètres sont 
introduits. A la fin de la saisie toutes les fenêtres 
crées disposent d'un jeu de paramètres qui sont: 

1= Nombre de tenëtres. I varie entre 1 et NMAX 



T$ ( I, 0, ) 
T$ ( I. 1 . ) 
T$( 1,2,0) 
T$ ( I, 3, ) 
T$ ( I, 4. ) 
T${ 1,5,0) 
T$ ( I, 6. ) 



Rubrique sélectionnée 
Position en X de la fenêtre 
Position en Y de la fenêtre 
Longueur de la fenêtre 
Hauteur de la fenêtre 
Nombre de rubriques 
Couleur de la fenêtre= C$ 



RUB= Nombre de rubriques 



T$(l. 1.RUB) 
T${ I. 2. RUB) 
T${l, 3, RUB) 

T${l, 4.RUB) 

T$(l, 5, RUB) 
T$(l, 6, RUB) 



É ^me ni s p ad'c ui' ^rs 



Niveau de départ 
Niveau d'arrivée= X$ 
Position en X du texte 
de la rubrique 
Position en Y du texte 
de la rubrique 
Texte de la rubrique 
Mode d'affichage= 
COUL$ 



Niveau de retour si la 
fenêtre est désactivée 
Fenêtres activées 



T$ (l,8, ) 
T$ (1,8,1 ) 



A partir de ces éléments, toutes les possibilités 
peuvent être traitées. Prenons un exemple: Si 
l'activât ion de la rubrique 1 de la fenêtre 1 entraîne 
l'ouverture de la fenêtre 3 et que, l'activtion de la 
rubrique 2 de la fenêtre 3 entraîne l'ouverture de 
la fenêtre 5. Si on désactive la fenêtre 5, on doit 
revenir à la fenêtre 3 , de même la désactivation, 
de la fenêtre 3 implique le retour à la fenêtre 1 . La 
désactivation des fenêtres dans ce cas ne peut 
être traitée de manière séquentielle. 



Lorsque la touche [ ENVOI ] d'une rubrique est 
activée, le programme appelle le sous-programme 
d'activation qui, au préalable passe dans un filtre 
afin de déterminer si le niveau d'arrivée est une 



expression numérique ( ce qui entraîne 
l'ouverture d'une fenêtre ) ou une chaîne de 
caractères ( dans ce cas, il y a lancement d'une 
application ). 

Si l'activation d'une rubrique aboutit au lancement 
d'une application, tous les paramètres sont 
sauvegardés. En effet, l'application étant située 
sur un préiphérique externe, toutes les données 
sont perdues. 

La sauvegarde des paramètres 

En addition aux paramètres physiques à 
proprement parler, nous devons mettre à jour puis 
sauvegarder la valeur de désactivation pour la 
dernière fenêtre et les différentes fenêtres qui ont 
été activées avant le lancement de l'application. 
De cette manière lorsque l'application est 
terminée, le programme de fenêtre est relancé et 
exploite le tableau principal qui doit être une 
représentation fidèle des différents états avant le 
lancement de l'application. 

I M ! ######*########**##S###ï###tt####### 

110 '# FfiRAflETRfiGE FENETRE # 

120 'B*S=ï3#s##ï##a#s#eSfî###S*;MM*M##### 

:30 ClS "3BB":KLL CQL0R("0SB"i 

!40 lOCATE i0,1 - :PRINT RPIfi" %$<}) 

,50 DÏN T*;2û ( 6,Ô> 

■ >> ÏSfiCTIF=-l:flPPEL=-î 

; "d UN ÉRROR 2540 

;.d0 ;###-4t##?f>=f#S*##kçimm*=^m^ 

190 {$ APPEL S-P DE LECTURE # 

:_;; LlE :! mh ! ';C*-L 33LÛR' "OdibL") 
7:20 Cni_L SPEECH i "S, 00B6FF"! 
"■ . ■■■.. ..,,, ;-r-v- EE^F^I 

:., lccate :.i:.i]i:FR:fiT "ëenn cccûuurees" 

1ù> ODSuh E':i0:!JQSUB 1090 

2s0 CLS "GBB":CALL C0L0RC0GB") 

?7:: lLJChTE !5,5):PRINT 'Nombre de tenëtres:"; 

2c-. ACCEPT BE£P y5LIDHTE:"l2:45e73' 'SIIEiilNUtLU! .NNAX 
2<M CALL UMi'lUU.COh"} 

.. . ..-■ :■<--, ^:- 

320 <tt SAISIE dlS PARAMETRES # 

, .. ■■ :,-■ ■,:,:: ■: 

340 FUS >; TD NMAÏ 

3c' jjEATE îE,S):PRINT "Position en x:"i 

"0 hCCEPT BEER VALÏDfiTE(DIGIT)BIÎEi:; 

330 X=VAL(T*U,li<») 

390 IF Ï<=G THEN 360 

4*3 IF K>39 THEN 360 

410 LOCATE £6,5):PRM "Position en y;"; 

420 flCCEPT 3EE- VALlDATE!D3GITiSIZEi2)NULL(n,T*(I,2,0) 

450 Y=vALiT*!ï,2,0)) 

440 if ï<=0 THEN 410 

450 IF V>20 THEN 410 

i60 LDCfiTE (7,5J :PRÎMT "Longueur:": 

470 ACCEPT BEEP VALIDfiTEiDIGIT)SIZE(2)NULL(5i,Tî(1, 3,0.1 

430 L=VftL(T$U,3,0!) 

490 IF L.;-4ô-X THEN 440 

5* LOCATE I3,5):PRINT "Couleur:"; 



?)NULLil) ,T*a,i,Cï 
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Mise à Jour des fenêtres activées et ries valeurs de 
désactivation 

Le numéro de la tenétre que l'on quitte est égal à 
T$ { FEN, 1, DEP ) où FEN = I. Cette information 
nous sera utile lorsque nous lancerons une 
application. Ce numéro de fenêtre est affecté à la 
variable ANCIEN. 

1- Dans le cas d'une ouverture de fenêtre 

Pour tout ce qui concerne l'avtivation, l'ouverture 
la désactivation d'une fenêtre, le numéro de la 
fenêtre en cours de traitement est égal à FEN. 

Le numéro de la fenêtre activée est rangé dans 
l'élément T $ ( I, 8. 1 ) où l=FEN. Cette information 
sera utilisée lors de la restitution des différents 
états après le lancement d'une application. La 
position du curseur ( la rubrique activée ) de la 
fenêtre précédente est stocké dans T$ ( FEN, 2, 
DEP ). Le niveau d'appel de la fenêtre qui sera 
activée est rangé dans l'élément T$ ( FEN, 8, ). 
Si la valeur de la nouvelle fenêtre est égale à 0, le 
programme est fini. 

2- Dans le cas d'un lancement de programme 

Le numéro de la dernière fenêtre activée ainsi que 
la dernière rubrique sélectionnée sont rangés 
dans les éléments T$ ( ANCIEN, 8, 1 ) et T$ ( 
ANCIEN, 0, ). Le niveau d'appel est sauvegardé 
dans un fichier. Lorsque ce fichier est écrit ( sur 
Exelmérnoire ), le numéro de la dernière fenêtre 
activé prend la valeur de APPEL et le sous- 
programme chargé de la sauvegarde de tous les 
paramètres est appelé. Une fois cette opération 
réalisée l'application est lancée. 

Les sous-programmes intéressés se situent 
respectivement aux lignes 1680, 1750, 1850 et 



Lancement d'une application 

Le lancement d'une application se réalise 
simplement: RUN "2."&X$. N'oublions pas que 
X$ est chargé avec la valeur du niveau d'arrivée. 
X$ dans ce cas est une expression chaîne de 
caractères représentant un nom de programme. 
Attention, le nom du programme doit être inscrit 
dans le catalogue de l'Exelmémoire ou de 
l'Exeldisk. 



•■ :■.'."' ■.;■!:'= ■■ rubriG'.'s=:" : 

■ :i:e:j;-m5.li' 



■" . '.: m> 

.: - i (5,5):Ki!«T " T = '<■; 

-.■■ H...L- ■ _---■ ... ■_.;.-_ - :T'.I rmjii'.'-'i 

,-■■ Pttw : 

-. L0CATE 



(VJ.TiiiJ 



PT r :: 



. ■ 



5 FCK I=j TfJ 20 

j locate (i,i):mm mst a ",¥)) 

■ HOT 

, MfHttMGE&nfM BEE FBEfflËSiMtH 

) BOSUS 900 

) !# ffFlïh^r DE Lri FENETRE i # 

> FEU=1 

) fiufi=VHL(T*iFEN,5,0)> 

i FOR 1=1 TO RUB:Tf(FEN,ù,Z)= , '":NEi(T:T$! 

i ï=yALÛf(FtN,l,ô)! 

■ i=VALiTifFEN,2,0)l 
r L='JALITÎ<FEN,:,0'> 



NTOM 
J O=TJfFEN,6,0) 
i S0SUB 1170 
i GQSUB 1240 
"~1 1050 



OU 



1040 RETURN 

1060 !(t ATTEN" TOUCHE # 

1 070 ■ *#m#4*4#f m#*m**»*##*tt*#*## 

loeo DEP=i 

1090 CALL KE¥l(fl,B) 

1100 IF h-255 TH£N lOTO 

1110 CALL SPEECH ( "S, 00B2FF"! 

V20 '(=■ !^;A=i:-: 4j,'*h SM-3#!A=27M*<fl=3 

1130 IF T=Û THEW 1090 

1140 m î 8QSUB 16B0, 1360,2720, 1*60 

1:5" KïïQ MO 

1160 RETURN 
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1310 

1320 

!■>, 



"■> ROUTINE CADRE # 

l ##»###ft«####S##»#ft#ii#it#l#S«##lt#iH 

ChLl LOADî'ÛPEN.CfflT'i 

DN34 ,, B" 

ChLi BQ("OPEN.Qfl%flDD,X,¥,L,HH,CÏ! 

RETURN 

! S ECRITURE DES i'EÏTES # 

MJ6=VhL(T*iFEN,5,'> :X=»i 

FOR J=l Tu SUS 

V=ï'i 

LÛCniE -ta :C0ULJ= T t<.FEN,6,J):«=SES*(B,i,nî.C0UL* 

«=SEGt(Cf,2,l':IF «=• " THEJJ «=SE6*(C*,1,1) 

EALL CGLi.Ri"v' , !iL:it 

LOCflTE <Y,)!/:PRIWT T*!FEN,5,Ji 

NE*T 2 

RËTiJRK 

<#4r#4mm4^;.Tt; m 4mmirftt###** 

IF DEP=RUB fl£N •■.-.; i: ;■,;-,-- -■ 
DEF-DEF+1 

f-irE^i-DEF^'T 1 

Ti:FtN,fc.Kf-D=" " 
i=WH._(Tï[FEH,3,fiEPï):¥=VflLiTîfE0i,4»BEPn 

'i ■ ■"'FP-:w : n=VALiTÎ(F£N,4,0EP-i!) 



f#lt####JFî);itt-ttl=*i## 

# 



'^ïWFBMiIlEPlJiCOlUsWfFÏÏ*,* 



:lûJ,U=tï--E^^.FuB) 



1ù« ici J - ■■:.- Bl 

■:r: ChlL Cft 5. I El M 

ià&G uQCAT ' rMUîPRIWT EïTElî 
167!.' RETURN 

» ;: = ss J::,::::|: r =, :=»:: = = ,::,,:..„;::, „,„;„ 

1690 : *t BÛJS-PSDËRAMME nf" :VhTION # 

3 ■■■■ i«##M#43if##tt$HMt#8###IMMlt*IHNHMHI 

[■;■■•( "' ;■-.;, DEPD 

■ - DSUe 1850 



1 ■• 



'.■■ ' ■. 



■■'. - 



«ttiittjttta* 



17= 
176 

: ■ 

; . . 

i : ": ::■..■,. ^ : " : ; .. -'...:-. ;:.^r..s 

:- '"■■ ■■■- l -■■■■"■'.■ '....i.. : "'.ETRE 

ISli 'IlFcN,8.'»=STR*(I 'S&WESARK lïïVïaj D 'APPEL 

iO !B£P=1 

1630 IF F£N=Ô THEN END 

iftfin ftFTiifi'rj 



Retour aux fen^rça 

Lorsqu'une application est lancée, le programme 
de gestion de fenêtres est remplacé dans la 
mémoire centrale de l'ordinateur. Le problème est 
évident: comment revenir au niveau d'appel 
lorsque l'application a accompli sa tâche. 

En fait, la dernière ligne du programme 
d'application doit contenir une instruction de 
lancement du programme des fenêtres. Lorsque 
le programme général des fenêtres s'exécute, 
une instruction de lecture des deux fichiers ( 
APPEL et PARA ) et exécutée. Les différents 
paramètres sont lus puis le programme appelle 
des sous-programmes chargés de rétablir l'état de 
l'écran avant le lancement de l'application. 



Lorsque l'application lancée par l'activation d'une 
rubrique d'une fenêtre termine sa tâche, une ligne 
d'instruction RUN "2.FENETRE" ( si le 
programme des fenêtres s'appelle FENETRE ) 
chasse de la mémoire centrale l'application et 
recharge puis lance le programme FENETRE. Ace 
moment précis doit intervenir un branchement 
entre la création de nouvelles fenêtres et 
l'exploitation des fenêtres définies précédemment 

Tout le problème réside dans la présence ou non 
d'un fichier de sauvegarde des paramètres. En 
effet, si le fichier PARA existe, ce dernier doit être 
lu puis le programme doit réafficher la séquence 
'des fenêtres jusqu'à l'appel du lancement de 
l'application. Par contre si le fichier PARA n'existe 
pas, on peut conclure que nous sommes dans 
une phase de création de fenêtres. Comment 
traiter ce problème ? En fait, nous allons procéder 
en nous aidant d'une éventuelle erreur de lecture. 

Nous savons que lorsque un programme 
demande la lecture d'un fichier qui n'existe pas, 
une erreur est générée. Or, en reconnaissant 
l'erreur, nous pouvons affirmer à coup sûr que le 
programme doit commencer une phase de 
création. Dans cette hypothèse, nous écrirons au 
tout début du programme une ligne d'instruction 
taisant appel à une procédure d'erreur: ON 
ERROR ligne. Ensuite on appelle un sous- 
programme de lecture. Si une erreur de lecture 
intervient ( fichier PARA inexistant ), la routine de 
gestion des erreurs retournera le programme à la 
phase de création. Si le fichier PARA existe, ce 
dernier est lu puis le programme retourne à la 
phase d'affichage des fenêtres. 
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Affichage des fenêtres avant le la ncement de 
l'a pplication 

La première phase consiste à lire les deux fichiers 
PARA et APPEL. Cette opération se réalise dans 
le sous-programme de lecture situé à partir des 
lignes 2160. Après cette phase de lecture des 
paramètres, le sous-programme d'ouverture sur le 
niveau d'appel est demandé. Le sous-programme 
est situé à partir de la ligne 2340. 

Le sous-programme d'ouverture sur le niveau 
d'a ppel 



1950 '#####i######*M##t####m#*ms= 
iSô-l !* LANCEMENT PROGRAMME « 



rf!.toiCÏEN,0,l)=STRfiMNCIENi 

IBFEflK „ ,„_ 

DF'EN #î,"2.fiPPEL",ÛUTPUT 

PR:NT Il 1, APPEL 

CLOSE #1 „ 

CLS ,h Wbb-:CALL COLDRflWbL") :L0Ch»E [10 

■EEXXEECCUUTTïIOONN" 

LOCATE UliU):PRIIff "EENN CCCOUUfF-iE 

fflLL 3PEECH<; : 'B,00&6FF"i 

SDSUB 20-30 

FE.*=A^£L 

ON FR^Ofi 2540 



: PUN ' 



■ > ! 



Ce sous-programme permet de restituer l'écran tel 
qu'il était avant le lancement de l'application. Dans 
une boucle variant de 1 jusqu'à APPEL ( dernière 
fenêtre activée avant le lancement de l'application 
) avec comme variable de boucle FEN ( FEN 
représente toujours une fenêtre en cours de 
traitement ), tous les paramètres sont convertis. 
Ces paramètres au risque de nous répéter sont X. 
Y, L, HH, Couleur, RUB= nombre de rubrique. 
DEP"=dernière rubrique activée. Une ligne 
d'instructions rejette de l'affichage les fenêtres qui 
n'ont pas été activées. 
ACT1VE$=T$(FEN,8,1): IF ACTIVE$="@" 
THEN NEXT 

Cette ligne ( 2420 ) élimine de la séquence 
d'affichage les fenêtres qui n'ont pas été activées. 
En effet dans la saisie des paramètres acune 
fenêtre n'est activée au départ. Pour matérialiser 
ce fait, nous avons forcé les éléments du tableau 
correspondant avec la chaîne de caractères @. 

Une fois les paramètres convertis, les textes des 
différentes fenêtres sont affichés ainsi que leur 
cadre. L'affichage des textes est réalisé par le 
sous-programme situé à la ligne 2610. Lorsque 
tous les éléments des fenêtres sont affichés, le 
sous-programme de saisie des touches de 
commande est appelé et de nouvelles 
manipulations peuvent être effectuées. 

Vous noterez au passage que l'ouverture des 
fenêtres est toujours accompagnée par l'appel 
aux routines assembleur. 

La désactiv atinn d'une fenêtre 

La désactivation des fenêtres est une opération 
délicate. En effet, elle ne peut être traitée de 
manière séquentielle. Comme nous l'avons vu 
dans les précédentes sections, la succession des 



. RtTURN 

i 'i S-° &WVE6AP.DE • 

.JPLiï 



)-.. THEN P'-::' 



,i.,. J *r. t *i l **zz li r.zrt«*m 

-._■•' " vr -. .-: s 



iC - 
»l,T*(I.JtlO 
2250 NEjCT k 
2260 NEX1 J 
2270 Ntir ! 
2280 rua *! 

2290 0PEN#l,"2.APrEL",IN.FUT 
2300 IMPUT #1, APPEL 
2310 CLOSE #1 
2320 6CSUB 2340 
2336 SETURN 

2350 '# OUVERTURE SUR NIVEAU # 

2W> F#M«#H ■ ■ »##*######*># 

2770 :L3 "GEffl-'iCriLL LGLDR ï "OËB" ï 
; . _ LOADi'INIT.CW) 

2390 CALL DOCIHIT.t33H%NMfl!(ifi3D) 
■■40'"! IF ftFPEL=ï "1-fEhi SffiLé 93 v 
2410 FOR FEN-I ~Û APPEL 
- --r:VE*=Tf!FEN,3,lJ:IF fiCTIVES="l" THEN , 

:-:.... *=\'flLa*(FEN,i,0M 

2440 Y=VALiT$(FEN, 2,0.)} 
2450 L=VAL(Tt(FEN,3,0)i 
2460 HH=VAL(TîîFEN,4,0)) 
2470 BEF=MLIT*<FEN,0|O)) 

2480 Cî=TïiFEN,i,0i;RîJB=vflL(TJiFEK,5,0S} 
249Ô G0SUB 1170 
2500 S0SUB 2600 
2510 NEXT FEN 

2520 FEN=APPEL 
2530 RETURN 
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JS-Ji '« iii.JÏ-.'.Co^W F.RHU* * 

?56 M*«Ms.'éfl#^*SMt#a»fts#tiWK###W(HI 



.... 
-■'. 



- : -:- - LES rEXTES a 

■ 

- ..■ :ï /fiLlT*(FEN,4.J)J 
-0.1 Ml =Eï.o.j::ÎF ."CHJ^*" THEN COUL*="" 
■ ■. ;.: i N : :'...-.. 1 ):IF 

■ ' - : ' ■ ■ J . 1 , ] ) 4CUUL * r TflLL COLDR î "0 



. £ rRE i 

■-^i •■■■ : EN,C,! irFTUFN 



• ■ ■■ '■■ •.. 'lîDESftCT] 
'■'•■... ; '.-■ COLCP "iT&CS} 

. ■ 



Une application typa 

Tapez le listing final, sauvegardez-le dans 
l'Exelmémoire sous le nom LST3. Videz 
l'Exelmémoire de tout fichier ou programme 
parasite ( mis à part les programmes assembleurs 
et les applications nécessaires au bon 
fonctionnement des fenêtres ). 

Ecriture des applications 

Si vous désirez lancer des programmes à partir de 
fenêtres, écrivez-les. Les programmes doivent 
f,rj .obligatoirement se terminer par une instruction 
" RUN "2.LST3". Voir exemple listing 6. 

Chargez le programme des fenêtres puis 
exécutez-le. Le programme commence la phase 
de saisie des paramètres. 

Nombre de fenêtres: 5 [ ENVOI ] 



■■•1 1 -».».1S.» SÏ1 .43 



■:P«ÎIMT n [Fich;er non t'ouvé]" 



différentes fenêtres ne se réalise pas de manière 
linéaire. La fenêtre 1 peut appeler la fenêtre 3 qui 
peut appeler la fenêtre 5 qui lance une application. 
Le sous-programme chargé de la fermeture des 
fenêtres est placé à partir de la ligne 2720. 
Lorsqu'une fenêtre est désactivée, l'élément 
représentant les fenêtres activées est forcé avec 
la chaîne de caractères @. La valeur de la dernière 
fenêtre activée est chargé dans la variable 
DESACTIF. La dernière rubrique activée, le 
nombre de rubrique, la couleur de la dernière 
fenêtre sont chargés dans DEP, RUB et C$. Les 
routines assembleurs sont appelées et le 
programme de saisie des touches de commande 
est appelé. Tous les paramètres nécessaires au 
bon fonctionnement du déplacement, de 
l'activation ou d'une autre désactivation sont 
transmis. 



Position en X: 1 
Position en Y: 1 
Longueur: 5 
Couleur: W 
Nombre de rubriques: 5 



[ ENVOI ] 
[ ENVOI j 
[ ENVOI j 
[ ENVOI ] 
[ ENVOI ] 



L'écran se vide puis affiche 
Texte: [ ENVOI ] 

{ le texte dans ce cas précis se résume 

à la lettre A ) 
Niveau de départ: 1 

( le niveau de départ est toujours le 

numéro de la fenêtre en cours ) 
Niveau d'arrivée: 2 [ ENVOI ] 

{ ouverture de la deuxième fenêtre ) 

Texte [ ENVOI ] 

Niveau de départ:1 

Niveau d'arrivée : EX1 [ ENVOI ] 

{ lancement application ) 

Texte [ ENVOI ] 

Niveau de départi 

Niveau d'arrivée: 3 [ ENVOI ] 

( ouverture de la troisième fenêtre ) 

Texte: ( ENVOI ] 

Niveau de départ: 1 

Niveau d'arrivée : EX2 [ ENVOI ] 

( lancement d'une application chargée 
de lire le catalogue CRAM ) 
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Texte: [ ENVOI ] 

Niveau de dépari: 1 

Niveau d'arrivée: [ ENVOI ] 

( abandon du programme en cours ) 



Fenêtre numéro 2 




Position en X: 2 


[ ENVOI 1 


Position en Y: 2 


[ ENVOI ] 


Longueur: 5 


[ ENVOI ] 


Couleur: C 


[ ENVOI ] 


Nombre de rubriques: 2 


[ ENVOI ] 



L'écran se vide puis affiche 

Texte: [ENVOI] 

{ le texte dans ce cas précis se 
résume à la lettre A) 

Niveau de départ: 2 

( le niveau de départ est toujours le 
numéro de la fenêtre en cours ) 

Niveau d'arrivée: 4 [ ENVOI ] 

( ouverture de la quatrième fenêtre ) 

Texte: [ENVOI] 

Niveau de départ: 2 

Niveau d'arrivée: [ ENVOI ] 

( abandon du programme en cours ) 



Fenêtre numéro 3 




Position en X: 3 
Position en Y: 3 
Longueur: 5 
Couleur: R 
Nombre de rubriques: 5 


[ ENVOI ] 
[ ENVOI 1 
[ ENVOI ] 
[ ENVOI ] 
[ ENVOI ] 



L'écran se vide puis affiche 

Texte: [ ENVOI ] 

{ le texte dans ce cas précis se 

résume à la lettre A ) 
Niveau de départ: 3 

( le niveau de départ est toujours le 

numéro de la fenêtre en cours ) 
Niveau d'arrivée: EX2 [ ENVOI ] 

( lancement d'une application ) 

Texte [ ENVOI ] 

Niveau de départ:3 

Niveau d'arrivée : EX3 [ ENVOI ] 

{ lancement application ) 



Texte [ ENVOI ] 

Niveau de départ :3 

Niveau d'arrivée: EX4 [ ENVOI ] 

(Lancement d'une application ) 

Texte: [ENVOI] 

Niveau de départ: 3 

Niveau d'arrivée : EX5 [ ENVOI ] 

( lancement d'une application ) 

Texte: [ ENVOI ] 

Niveau de départ: 3 

Niveau d'arrivée: EX6 [ ENVOI ] 

( Lancement d'une application ) 

Fenêtre numéro 4 

Position en X: 4 [ ENVOI ] 

Position en Y: 4 [ENVOI] 

Longueur: 5 [ENVOI] 

Couleur: Y [ ENVOI ] 

Nombre de rubriques: 3 [ ENVOI ] 

L'écran se vide puis affiche 

Texte: [ ENVOI ] 

( le texte dans ce cas précis se résume 

à la lettre A ) 
Niveau de départ: 4 

( le niveau de départ est toujours le 

numéro de la fenêtre en cours ) 
Niveau d'arrivée: 5 [ ENVOI ] 

{ ouverture de la cinquième fenêtre 

fenêtre ) 

Texte [ ENVOI ] 

Niveau de départ:4 

Niveau d'arrivée : EX7 [ ENVOI ] 

( lancement application ) 

Texte [ ENVOI ] 

Niveau de départ :4 

Niveau d'arrivée: EX8 [ ENVOI ] 

( ouverture de la troisième fenêtre ) 



Fenêtre numéro 5 

Position en X: 5 [ ENVOI ] 

Position en Y: 5 [ ENVOI ] 

Longueur: 5 [ENVOI] 

Couleur: M [ ENVOI ] 

Nombre de rubriques: 2 [ ENVOI ] 
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L'écran se vide puis affiche 

Texle: ( ENVOI ] 

( le texte dans ce cas précis se résume 
à la lettre A ) 

Niveau de départ: 5 

( le niveau de départ est toujours le 
numéro de ta fenêtre en cours ) 

Niveau d'arrivée: EX8 [ ENVOI ] 

( ouverture de la deuxième fenêtre ) 

L'écran se vide et la première fenêtre s'affiche. 
Manoeuvrez les différentes touches de 
commandes et vérifiez le bon fonctionnement. 



Les applications doivent obligatoirement figurer 
dans le catalogue de l'Exelmémoire et ces 
dernières doivent impérativement se terminer par 
le lancement du programme principal des fenéfres 
( LST3) . 



Codage des 
sous BASIC 



programmes assembleur 



Si vous ne possédez pas le langage EXELMAX, 
vous devez à partir du BASIC créer les 
programmes INIT.COM, 0PEN.COM, 

CL0SE.COM. Cette opération est fastidieuse, 
aussi, faites bien attention à ce que vous tapez. La 
moindre erreur est fatale et ne pardonne pas. 



\Jv RESÏ 



! TQ 2 



::o l-Xmte '■-■■-ic? ,.-:ffint fj..f:c:&j>f t î'" ■ , .::-LEVFffFïer.i*v "^str-ju 

2+; PftINÏ K,CHttiAO)î:«n:PRWT #2,"":CL05E #2:CALL SPEECH( h S,00B2FF") 
310 NEïTîÊW 

woo ' 

9O10 DATA 2.IHIT.Cnt,to 

W£(j DATA 2. 0PEN.COM, [S 
9030 DATA 2.a0BE.C0n,20 



:, 2, 193,133, 192, 3, 193 
38, 72, 28, 222,25,210, 23, 



ÛPEN 

iAiA DEBUT, 520 

'~i^ 4, 128,32, ■Tà.îiO, 192.64,126.224,0,1,3,5,6,2 
>hTA 4, 7, 0,ffi, 89, 77, 67,75,93,87, »,ÎO,46, 146, 46 
■n - :_,'.!-, 3 .,^.13, .12. 46,:^, 46, 130, 14, 50, 13, 2, 122 
- " ' ----- *6,14é,4 30,22,18,15,50,34,0,114,16 
-. 224,14 Mi4,16,7.8,;7ô,J6.224.14 

- ■■: .:■-■:"- :-:,!29 ; :"0,24-:,;-=,:;a,247,l4,2P 

■ ■--"■ ■--■ " -:.5,;:=. :«, 247, u, 20, 152, 19 

-. ■ -■--">33.:.::;.:e-.:29 1 142, 247,14, 20, 152 
■ •--■-■■ ■-' 3"4. ::--3--, 2>2, 4, 226, 241. 129, 173 
• ■■■..■•'.12=.:" -332,224,185,249,202,5 
•■ ■.■-■:. 22,24, 114, 8,36, 128,40,128,6 

':• :■-■■'■ .128, 6, 14, 232, 22, 1,114, 4, 226 

-.- •- •■.'.■■6, 14, 24ô, 14, 31, 152, 247, 123 
ATA !42, !d, 45,114, 247. :2~, 142, 18, 44, 134,10,15,0,73, 16 
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moo data !,72,2,;9i..2o,: 2.7.i4-.. ' - 

1117C sais 28,7;.. ■ ■ - . „ 

1U80 DftTfl 128,140, 18, 6, 114, 747, 126. , - 42,247,128 

11190 data !42,is,44,:;4.:3,!54.:72. '.. . - ,18, 

11200 DATA l,2,ro, 13.59,200.: :. . 

11210 DATA 2i, 0.:::. -2. ■■,"-. ■ 

:i22i BATA 235,:3.3!3,44,!29',B,34,12 L . 

11270 DATA 36, 122- 49,128, 5. '4, 1S. 2c, or. .:.■■.*.. 1,16,2.1,2! 

'1240 DATA 0,121, 22, 4, 120, 46, 100, 23, 13, 44, :3i'.„ 

'."•50 DATA 27, 15,45, 17*, 23, 28,8, 36, 128, 40, 125, 6, 14, 245, 14 

!Î2~. O-ft-A 22,152,16,21»,20,16,152,29,129,i42,i9,4e,:i0.2;.:5 

11270 DATA 44, 130, 22, 18, 247, 14, l,152,2v, 25. 30, 54,0, 40, 2 

ï M DS7A A3, il', 207, 174, 121.192, 170. 4 4 , 130, 199, a, 3;, 123, 40, 12S 

1:290 DATA 4,14.244,14.30,152, 10,247, 12S, 140, 13,60,114,63,129 

i!30o DATB 142, 9, 226. 38, l'a, 125, 25, 2:7, 154, 173, 142, 25, 216, 117, 123 

11310 DATA 142, 22, 69, 152, 247, 128, 142, 13, 56, 114, 71, 1,152, 0,4! 

11320 DATA 4. 86, 25, 25. 190, 24. 18, 232, 22, '". 1.1.131, 5, 2.0,2. 

M310 - T - :,.;-, 4, 36, 128, 40, 1328,6,! - -.-."9.120,40 

',790 DATA 128, 6, 14, 246, 11.30., 152. - ■ -■: ■-• :-3,142,26,79 

11350 DATA 66, 9, 129, 142, 27, 79, 66, 9, :.ï. 142.24, -v, 66, 9, 129 

U360 2A T A 142,30,79,152,4,129,142,7,123,140 

12000 ' CLOSE 

12010 DATA DEBUT, 265 

'2020 DATA 4, 123, 10, 15, 0,77, 16, 1,72. 2, 193, 138, 192, 6, 194 

:■.'-,, OATA 173, 22, 217, 15, 0,121, le, 26, 72, 28,222,28.20', 22, 214 

î 2S,4'2 00 A 14,1,152,27,82,1; 2.4,114,195,128,142 

12V30 OATA 16, 46, 114, Pc, 82,193.123,142, 18,44,114, 13,156,165,201 

■2'M DATA '7. 208.", 2, 170, 18, 203, 1,2,170, 13, 50, 200, 184, 195 

17070 DATA '7'8. 140, 14, 54, 114, 69, 30, 152,210, 25, 213, 15, 0,121, 16 



12999 

12090 
121.20 
12110 
12120 
12130 



DATA 0,72, 190, 26, 13, 14. 22, 152, 21 ,0,121, 22, 32, 120, 2o5 
DATA 13, 218, 46, 130, 3, 36, 128, 40, 128, 8, 14, 46, 130, 8, 36 
DATA 128, 40, 128. c. 14, 18. 26, 44. 215. 22, 14, 152, 16, 22, 152 
DATA 2! -0,121, 22, 4. 120, 14, 16, 152, 233, 128, 142, 25, 208, S 
OATA 36i 128, 40, 128, 4, 14, 26, 203. 3, 8.= . 123, 40, 123, 6, 14 
DATA 27, 208, 8, 36, 126, 40, 123, cil, 23, 208, 8, 36, 123, 40 
DATA 123,6,14. 246, 22. 22, 122. 11,22, 152, 21,208,8,36, 126 
-il. . -2.-. 4, 22, 208,8,246, 12B, «,128,4,14,239,18 
DATA 218,8,3! 128,40, 128,6,14, 3,36,128, «1,128, S, H 
OATA 18. 203, 19, 226, 135, S, 36, 128. 40, 128. 0.14, 184, 9„. HO 

.-1,14,30 
44 'A 152,30,74,152,217,123,142,7,128,140 
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Une magnifique simulation du jeu de 



i Dlif PI130) 

4 L=S0;CLS "£66" 

j LOCAÎE ilu,4>:FRINT "MICHEL MÛUPOi 

i REM DESSIN 

ù REM CARACTERES ATOUTS 

10 CAIL t,Hflfi 

17 LftLL CHAR 
14 CAL 



tarots 

CLERMONT FD 10 12 1985": PAUSE 4 



HAK' ■ 


,'FM57FFhE0CF87890978 


rihfJ. 


.''fW^iE^AAhCEEV! 




» 'FF4-22JilS^WhEiFirFEj 




■ "!^: r t.'-E!.Hi:.AD[:7i:.4?FF 




."■■>■■ ■-■■^7E25F772AFF 




. .4 u5O6O4OD0AOFF 




', "'JWuùCFEFE7C381010« 




:.,,:: >,,;;i:,ï. M ,,0v/,:rt-E 



j '.ALL CHAR(4i, 
? CALL CHAR (43. 
t REM VALET 



>780CJE1E3E3E") 
>OOOOOIÛI01FF". 
■7EE6968687FF"i 

Wi00030F0FF"i 



B REM ROI 

& CALL CH*(120,"«)0000000000547C7t34') 

2 CALL CHflft ( 121 , "0O0O0B1C1 DO909OEOCFF M ) 

. ■"■ ÎK :; " r EFE7C7CFF"i 

i CALL CHAR 1 123, " I E0S3EO8OSFC T 

3 ÎAlL LHAPa24,"FFiOi03E3FI1107Ci038") 
5 CALL CHAR (125, "FF3E3E7F7FFFFF0S1C3E" ) 

: Lhll CHAR i 126, h FF3070D090BB3810") 

4 CALL CHARil27,"2A3E3E2A i, t 

1 REM EïOJSE 

3 LhlL CHAfti^^"O000Ci000iHi!ii'.'fiC!"!E'"^OA ,! i 
j CALL CHARï5l."000(i007i'336<WrE-FMF:V' ; 

2 CALL CHAR (52, "00000206010304") 

' CALL CKAR(.53, ,, 0303478EOE8CDCD8383O"! 

ii CALL CHAR(54,"3018") 

;: cAlL LHARiSCV'OOOOOOO'ViOOOiilOifnf-. 

j ÏAlL CHhR':5o, ii 30286C44C2C0B080'; 

. i-: : LHAF=57, -03060404°) 

I REM TITRE 

s CALL HR0rji"B",e,6):eûEUB 3S2 

j CAjA 4u,y0, 100,12^*0, 176.204,2^,2^, 2^0.400 

) DATA 40,80. K'0, 120, 140, 180, 20^,24'"'. 2^(1,2^, 400 



'- ■;■-, .h;..,,\ ,_ ,_ o7Ë301E0F0F0i ,r i 

- .h.. CHARU16i'0Û003C7EFrTO»993C7E*] 

' ML 

: d wml, CHHKiii2,"FrEFFF7E7E7EFFPD3CFF"i 
du Lh^L LHHhiî j,'., : 00:3-c!:A.i'viCO300Oi'OFF 3 i 
fcv L*LL CHAP::i4, i, FF0O'>V^. t 7O2O-;CftOi"i 
a-: ChLI. CHAR:il5,- | F;-3CeDi-i-E7E7ÊFFFFFF") 
do LALL CKARu! c ,,"FF0000e0CO4OC08080 u ) 
± hl CHfiR (117, M FF3f;i>flrjBFFFF7E 18" : 
-■■ *.-"- CAV'ALiER 
-- - " " . ?7fi"i 

- -* - .-^ : . '■.■; ■:. , -»; : 14l4;:4::4FF , l 
9c CAlL CHAR(102,"777;FE-C^r-L ; ^OSu4FF". 
vo LhLl LHMh -khXlOFF") 
100 CALL CHAfi(104,"FF0000000000O00OO.-:ri7'', 
102 CALL CHARfI05 ( "FF20A.:.AO"7r7F7FtEtE"^ 
104 CALL CHAF;10; i ,"FF20202S29PiF0E0"i 

: h Oh,.! r:HAF:;i07.''DE4EO4OE0E"l 
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■ :■.■',■..:::.'.:: .:■■■ 
i.i24,]40,i50,j7o,iS'>.:oo,2io,;:o,:-o,:o'!,2Sfî,4nii 

1 , i 26 , 1 40 . i 7 i , 20O , 2 i 'ï , 230 , : ■ 4>i , 2.sô , 2fls> , 4O0 

',150, 172, 182, 200, 2k 1 . 230, 240,260,280,400 
^ :^, 140,150, :74,;S4,:00, ::■.'. 27û.>"f, 2^1.230,4^ 
'■130, 140, 150, 176, 186,204,236,260,280,400' 
-,130, 140, 150, 178, 188, 206, 234, 260, 280, 4fi0 
JîREfiD PCIi:NEXT 1 



: QhTA 



RES'ORt 148:F0R 1=0 TD i: 

I=O;TEST=0 

RE.P! TAROT 

IF 1=131 THEN 186 

CALL LIt€«"e ,i ,Pil),L,P(I+l),L) 

; r = ■: I -2. ■ >400 TmEW 180 

RAWÛMIZE:L<+INTRWi4>: 1=1+3; GDTO 172 

IF TEST=1 THEN ÎB2 ELSE TEST=i:GOT0 172 

TEST=0;I=I+2:GÛTÛ 172 

REM AFFICHAGE BOUTS 

CALL C0LrjR(''08W"):LÛCATE (14,10) :PfiINT "1 u 

-ÛOiTE i;4,"0f:PRlMT "21 " 

CALL COLÛRClBriîlQCATE il5,10,':PftINT CHPtil ■ ;CHRf (2i iMB tf 

lOCAÏE ;:5-3u.::PRIfjT CHRiïl };CHRÎ(2)iC,HRii3) 

-CCkïE '.:û,20i:FSINT .:Hf!î:4.'îCHRt(5)iCHRt(6) 

LÛCAîE il6.30):PFINT LHRii4. jCHhî (5; ;ChRÎ'Ai 

CfiLi ■ j^. lOr;PRTNT " î" 

LÛCATE !17,50):PRINT " 21" 

2ALL C0LÛR'"'3['IUJ"):LnCATE i4,!9-:PRI?NT CHR*!42) 

L-âll L.ÙLÛRr l iriW"i;LOCATE (4,20i:PRINT CHfi<'5v' : "HP* -M ' 

LÛCATE i5,19):PR'!v T 7hPv22; ; CHPl '53- iCHRIiM; 

LÛCATE (6,19>:PRINT CHfif (55) ;CHRîi56)Si " 

CALL COLORCOHU") : LÛCATE (7,201:PRINT " "SCHRÎ(42Ï 

CALL C0LÛR("0ïF"ï: LÛCATE i20,l):PRINT "Vouiez vous les règles 

fi=VAL(KEYÎ) 

CLS:CALL HRÛFF 

IF F=0 TriEN 248 

RESTORE 524;FÛP 1=0 TÛ 15:G0SUB 250: NEXT I 

X*=KEYÎ:IF ti="" THEN 232 

ù_S: RESTORE 550:F0R 1=0 TD 16:0C8U6 250; NE>" i 

CALL COLÛRi"ORHL;-"i 

LÛCATE (18,6.' :PPIfr "ÊELWJNNNEE CCHHAAMCCEE ll "" 

LÛCATE .■lv.ôliPRINT "BKKHNNNEfc LÛHKAAfelCEE " 1! " 

CftLL^COLDRi'-OVB'V^LÛCATE 2'2,6) :PRINT "et entre; le second programme." 

252 DATA "sort d'un cote il réapparaît de l'autre. 

364 L;ATA "Si vous avez une poiqnee a rentrer, " 

£ûô DATA "il faut taper successivement les atouts 1 

568 DATA "£>': 15 tape; 1 puis 5 puis # pour" 

570 OnT^ "valider, puis un autre atout." 1 

52 3hFh "A la fin après ie dernier S, tapez *" 

-34 DATA "Si vous montrez i'e;;cuse lOEME,voys l! 



! La tienne est réglementaire, ainsi" 

'□Lie les prises (petite, garde, sans " 

"et contre le chien)" 

"L'FJfi 100 gère les jeun de est,norc" 
:36 uATA "et ouest indépendamment les uns" 
338 BATA "des autres." 

539 DATA "II gère ie decoffipte des points." 

540 BftTfi "A vous de gagner ! !! ) avec le ° 
;42 L'A; A "ieu ce sud. Le choisi d'une carte se" 

1 547 DATA "fait avec le manche (ou flèches)," 
544 DATA "la /alîdation du chois par ilR " 
---- t-nTt "(ou espace!." 
548 DATA "Tapez une touche pour sortir" 
jjO DATA "La manette orange suffit pour iOuer." 
552 DATA "Aucune frappe sur ENTER n'est demandée." 

554 DATA "... » 

556 DATA "Les dernières lignes sont réservées 

1 ■ ■ - !A " je: ." 

560 DATA "Lors du chois; d'une carte, si le curseur" 



1=011 0=NON" 



1 THEN I 



11*- 



■■Tniti L*3 



7 ïi#;Eïf:IF tp 

3 CLS:EN0 

î PEfi AFFICHAGE 

') RtftD AÎ:L=0:N=LEN(AÎ) 

î IF A$="Tape; une touche pour sort 

1 FOR V=l T0 N 

:■ LÛCATE (2+I+L,i(40-N>/2)+Y) 

î FfiINT 8EGÎiAî,ï,l) 

) ne.xt H 

I RETURM 

? REH BONJOUR 

î DATA 152, 079, 010, 120. Oïl. 010. 121. 000, 009, 2M,0i 

i DATA !i4, 054,076. 25.060, 14^ [7*. ;vA,y(fi, 940,0=; 

i PAiA 034,137,234,0:3- ,. -.oso. ■-",.'",■", - 



576 DATA "entrez 22. 

-78 DATA "Pour tous les autres cas il suff 

5S0 DATA "suivre les messages." 

582 DATA "Tapez une touche pour sortir" 



t de 



: DA^A -66V 
i RESTORE 31 
i 3-2L PQK£ 
2 CAlL EXEC 
4 PAUSE lifEUffl 
1 DATA "Les règle! 



663' 



526 DATA "de la Fédération Française de Tare 
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